


f 


j! S nN 
iby 4 ‘ ts Me , 









Institutional Archive of the Naval Postgraduate School 


Calhoun: The NPS Institutional Archive 
DSpace Repository 


Theses and Dissertations 1. Thesis and Dissertation Collection, all items 


1976-12 


A microprocessor implementation of extended basic 


Eubanks, Gordon 


Monterey, California. Naval Postgraduate School 


http://ndl.handle.net/10945/17862 


Downloaded from NPS Archive: Calhoun 


| Calhoun is the Naval Postgraduate School's public access digital repository for 
F (8 D U DLEY research materials and institutional publications created by the NPS community. 
«ist | | Calhoun is named for Professor of Mathematics Guy K. Calhoun, NPS'‘s first 


lil \ KNOX appointed -— and published -—- scholarly author. 


http://www.nps.edu/library 






LIBRARY Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 University Circle 
Monterey, California USA 93943 


a i! a 3 en One 
' ae Le nays of ; us A f rs , ‘4 


aha if . 
. Se 


a Wan rye otis 


he EF 
nt) 4 aa i 
1 













* 
on i 
7 
r a ' i} # t) 
. 
! ' 
a 
g ' 
. 7 
i 
| 
a 
id " 
f 
e et 
' ' 
' +f 
ry 6 , i Te —_ 
’ i ij i i i 7 7F 
' od 4 ‘> ’ 
, a‘ e i —_ - 1} 
- 1 t) 
| i af LP om i i 
, ‘ ve , J ‘\ P| ' 1 if ® 
i t 1 = ' - 
, ’ i] 1 . “@¢ P a , ook iv ‘2. 
ae 
P ae .* we 4 T i} are a 
! ' i ! 
i] 
4 i 
$ $ ye" i La 
; ' ' Le | ' i 
, ' \ i to ’ 
\ eae 1 ! 
J * 
‘| a ® i “ 
: ' ; rp My i} Wi ’ Otel 
' ' . ' ml i, ', } } 
| a! | 
. ; . A” , A 
i eB id 
1 1 | 4 i a” 
' i \ , eal i‘ | Pa | tt 
a 
] , ' ¢ 
1 | 17 
\ \ | i ] 
| i} a \ | i} ' Ll 1 | 
t | 1 ‘ i i i ' wae | 
i tL 1 
» 4 P ] 
\ ’ ; Lon , | 
+ \ | 4 : # ' ’ : )) p 1 E ce, . ; e 
hy | ‘ ak t) AT Y f _s 
A. i - ! U : ~r $ 
hi , J r = = D Oh "al . , = * 
it i ‘. ' t 2a i 
i] 7 if “~ Sif ‘ a} in ah r, =) vie fy ne Ne 4 7 
J ' , ss ea} ib a on « : Yo ot RA) a 
' q re. Ae i i i) ; mo ‘) i ‘ Ps vit 7 a “Aa i ) * = * ns —— a 
i ey eel Sie OT ' ipe  VUR LE id vi Tea at al Ayu aon ty re 
rm = * we | ie Pera ‘ ‘¢ ‘ ‘a Me AN } $ '" bs at t 4" te N of » ay * A , 5 
aig Vir i i ‘ ! ] - ae e ! ar y 5 
. 
nyt : iat 
nn A i Jr ie i} on vss wr 
Py toe ie Re s if 
77 ‘i i + ee ad rn ae ih 
vn! , . ' om t 
‘ > ¥ 
i i 77 rl is ii 
puny. 9 i j a a, - : a teaa 
reed | t 1 eee , ia i " r 




















AA 8 - : 
A 9 , m 8 > se Pr “= A ort ap [\ on» ree a 


ay} fe 1 : - i 2 , ih f j » | f 
SVuee vat Be bUWwd Uatrid uy Loe 


antanay I lifacune 
wUlioroy, LaliiOPnia 





4 a be > & 
fod ee ee | od 
ie oF de 


A MICROPROCESSOR IMPLEMENTATION 
OF EXTENDED BASIC 


by 
Gordon Edwin Eubanks, Jr. 


December 1976 
Gary A. Kildall 


Thesis Advisor: 


Approved for public release; distribution unlimited. 


177964 





UN CLAS Si LED 


ee 
SECURITY CLASSIFICATION OF THIS PAGE (Tien Deta Kantored) 
PS TT SL 


> tee ares tad 6a" A ital SASS "READ INSTRUCTIONS 








i &. 8 wes @ aww wwe met ed + ous es | aS oe & wes s owe wes RBRZFORE COMPLETING FORM 
REPORT NUM SER 2. cOVYT ACCESSION NO.| 3. RECIPIENT'S CATALOG NUMBER 





fa. TITLE (and Subtitle) S. TYPE OF REPORT & PERIOD COVERED 
Master's Thesis; 
A Microprocessor Implementation of December 1976 
Extended Basic 6. PZRFORUWING ORG, REPORT NUMBER 


[@. CONTRACT OR GRANT NUMGEA(e) 









J. AUTHOR(e) 


Goraon Edwin Eubanks, Jr. 








10. PROGRAM ELEMENT. PROJECT, TASK 
ARZA & WOAK UNIT NUMBEAS 


r12. REPORT OATE 
December 1976 
13. NUMSER OF PAGES 


194 


MONITORING AGENCY NAME &@ AQDORTSS(ii dilierent trom Controlling Office) 1%. SZCURITY CLASS. (of thie report) 


PERFORMING ORGANIZATION NAME ANO ADDRESS 









Naval Postgraduate School 
Monterey, California 93940 


CONTROLLING OF FICE NAME ANDO ADORESS 













Naval Postgraduate School 
Monterey, California 93940 








Naval Postgraduate School Unclassified 


Monterey, California 93940 Ibe. DECLASSIFICATION/ DOWNGRADING 
SCHEDULE 


7 a 





16. DISTRIBUTION STATEMENT (of thie Repvorts 


wen 
— a 


Approved for public release;: distribution-unkFimiteda. 


17. DISTRIBUTION STATEMENT (el the adetract entered in Biock 20, Ii dilfecent tren Report) 





18. SUPPLEMENTARY NOTES ‘ 


119. KEY WORDS (Continue on reverse side il necececoary and identify dy bioek number) 


BASIC Extended BASIC 
Pnhteerpreter 

Compiler 

Microprocessor 


20. ADSTRACT (Continue on revoree side if necessary end identity by aleck numer) 


The design and implementation of an extension to the BASIC 
programming language for use on a microprocessor-based system 
has been described. The implementation is comprised of two 
subsystems, a compiler which generates code for a hypothetical 
zero-acdress machine and a run-time monitor which interprets 
this code. The design goals, solutions, and recommendations for 
further expansion of the system have been presented. The system 


=~ 


CD ons 1473 cortion o7 | Nov 63 13 OBZOLETE UNCLASSIFIED 
. * eee ES 
(Page 1) pane ee. mee | SCCURITY CLASSIFICATION OF THIS PAGE (When Date Entered) 





UNCLASSIFIED 


a a 
FLCUMITY CLASSIFICATION OF THIS PAGESWhen Nera Entered 





2 Oi (cont.) 


was implemented in PL/M for use in a diskette-based environment. 


oP ; eo 1473 UNCLASSIFIED 
Q 


an 
=/N 0102-014-6601 eam CLASSIFICATION OF THIS PAGE(WREN Date Entered) 





A Microprocessor Implementation 
of Extended Basic 


by 


Gorcon Edwin Fubanks, Sh 
Lieutenant, United States Navy 
BeSer Oklahoma State University, 1968 


Submitted in partial fulfillment of the 
requirements for the degree of 


HASeR SOF SCIENCE IN COMPUTER SGTeNGe 


from the 


NAVAL POSTGRADUATE SCHOOL 
DECEMBER Sl 7 6 





ABSTRACT 
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a compiler which generates code for a hypothetical] 
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I. INTRODUCTION 


A. HISTORY OF THE BASIC LANGUAGE 


The Beginner's AllePurpose Symbolic Instruction Code 
(Basic) was developed at Dartmouth College to provide a sim- 
ple, interactive language for casual computer users with 
applications in scientific computation [2). To meet this 
goals a limited vocabulary of ee aioe was included in 
the original definition of Basic. There was no concept of 
Beue typing and there were no default conditions to memone= 
nee. The interactive mode provided an ideal man/machine 
interface for creating and debuaging procrams, while the 
features of the language were wellwsuited for the expression 
of engineering problems. Since this type of environment 
Satisfied the needs of a wide range of potential computer 
users, Basic was adapted by a number of universities and 
commercial PA tehivey In particular, timesnarinag service 
bureaus Saw the potential for exoanded computer usage among 
Non=-computer specialists by providing its customers with the 
Basic language (10). This ted to the development of a 
number of dialects of Basic and to many extensions which 


Satisfied specialized users. 


As the use of Basic increased and extensions to the 
language proliferated, the need for standardization became a 


Geme@erm among comouter specialists [le]. This concern led 





to the formation, in 1974, of committee X3Je of the American 
National Standards Committee which was tasked with develop- 
img a Stenderad ten the Basic programming language. The 
result of this effort was the Proposeaq American National 
Standaras Institute (ANSI) standard for Minimal Basic [4]. 
This standard establishes a minimum set of features which 
should be included in the implementation of a Basic lanacuage 
processor. While the standard provides arithmetic and very 
simple string processina carabilities, 1t does not consider 
the more extensive features which led to the need for stan= 
dardization in the first place. In a recent article by 
Lientz (9}, the different commercially available Basic 
language processors were compared. This Survey incicated 
that many Basic processors tend to provide similar features 
and include extensive facilities beyond those in the ANSI 


Standara discussed above. 


eee 6 TRE USE OF BASIC WITH MICROCOMPUTER SYSTEMS 


Basic 1S becoming a widely used microprocessor applica- 
tion language. Typical of the many commercially available 
Basic interpreters is the Altair Basic [1]. Available in 
4K, 8K, and 1ieKk versions, It provides exuens ions enti allow 
String and file processing and a wide range of predefined 
functions. The 12k version operates in conjunction with a 


flopoy-disk system. 


The 18M 5100 portable computer includes the Basic 


language implemented in readeonly memory [5]. The language 


10 





oroviaces stream data files, string manipulation including 
substring operations, matrix operators, and hard-copy out- 


put. 


Although both of the Basic language processors described 
above include powerful extensions to the language, they have 
the followina limitations. First, the entire source program 
must reside in memory at one time. This limits the size of 
programs which may be executed and thus discourages the use 
ef remarks and indentation to show structure. Readability 
is limited by the restriction that identifiers consist of a 
single letter or a letter and a number. Finallye it is aife 
ficult for individuals to modify the system to support 


specific apolications or devices. 


C. OBJECTIVES OF THE BASIC*E LANGUAGE 


BasicwE was desiaqned to orovige all the arithmetic pro- 
cessing features of the proposed standard for Basic as wel] 
as extensions and enhancements to the lanaquage. Extensions 
Include multisdimensional arrays, logital operators for 
numeric quantities, string manipulations, and sequential and 
random access to disk files. In additions, bKasicwE retains 
the flavor of Dartmouth Basic while freeing the programmer 
from many of the original limitations. Such enhancements 
include improvea control structures and features to increase 
readability. Basic7E also attempts to maintain compatibil= 
ity with existing extensions to Basic where those extensions 


seem to have peen accepted by the industry. 


el 





Similar to Altair Basic, Basic-— operates in econmugcrion 
with a disk operating system and requires at least l1cK bytes 
of free memory. The CP/M monitor control program {3} was 
selected as the resident operating system because of its 
availability on a number of microcomputer systems, including 
those at the Naval Postgraduate School. CP/M is an interac= 
tive, singlewuser system providing Standard I/0 functions 
and supporting a named file system on IBM=compatible flexis 
ble disks. Fhe system includes a text editor, dynamic 


debugger, symbolic assembler, and system utilities. 


An additional goal of Basic*E was portability to other 
operating systems and backup storage devices other than the 
[IBM-compatinole format used with CP/M. To achieve this goal 
the programs were written with a separated 1/0 system in 
PL/M (6), a widely accepted system implementation language 


for 8080 microprocessors. 


BasictE provided a oortable and expanagapnle basic 
language orocessing system incorporating the features dise@ 
cussed above. Unlike many existing imolementations, BasiceE 
1S not a purely Reon e ive language. A source Program is 
compiled to pseudo machine code for the hypothetical BasicwE 
machine. This code is then executed interpretively by the 
fumetimne monitor. This apnmroach is the same as used with 
Basic/M [8] an implementation of Basic with features similar 


to the pronosed ANSI standard. 


ike 





PI. LANGUAGE SPECIFICATION 


In the following section the Dartmouth Basic language 
will be reviewed, followed by a discussion of features of 


BasicwE which differ from the ANSI standara. 


Pee «6 THE PROPOSED STANDARD FOR BASIC 


ie Dartmouth Basic 


Dartmouth Basic 18 @ Statement oriented language. 
Each statement consists of a line number and a command. 
Bed are either real numeric or character string and no dis- 
tinction iS made between types of numeric data. An identife= 
1er terminated with a dollar sign refers to a string varie 
meager 3nd 6al | 6Cother identifiers reterence numeric guanine 
ties. Identifiers consist of one letter or a letter fol- 
lowed by a number. String variables consist of a single 
letter followed by a dollar sian. Arithmetic operations, 
performed on numeric datar, are represented by the infix 
operators ty =“, *, Zr and fF (exponentiation) as well asthe 
prefix operators + and -. Both data types may be compared 
using the infix relational overators <, <=, >, >=,4 and <> 
(not equal). One anc two dimensional arrays are supported. 
The same identifier may refer to a subscripted and unsub- 
Scrioted variable in the same program. Further, a dimension 


Statement 1S not needed to soecify a subscripted variable if 


eS 





the value of a subscriot coes not exceed 10. Finallys a 
number of oredefined functions perform elementary fumect iar 


evaluation. 
Cx Tne ANSI Standard 


The proposed ANSI standard incorporates the features 

o f Dartmouth Basic and alSo includes the following State 
mentss 

ON RANDOMIZE DEF 

OPTION oe Role 
With the exception of the OPTION statement, most existing 
Basic implementations include all of the features described 
above. The OPTION statement is used to specify whether the 


lower bound of an array 18 zero or one. 


Most existing Basic language processors ao well 
beyond the ANSI standard to provide filethandling ability, 
formatted output, string manipulation, matrix operations, 
and ae multitude of oredefined functions. The survey by 
Lientz [9] documents these extensions for many large and 
miniwrcomputer manufacturers, and for a number of timesharing 


services. 


SB. FEATURES OF THE BASIC-E LANGUAGE 


SER iS oa was designed to maintain compatibility with the 
Oroposed standard while extending the language to iIncor- 
Borate such features as string processing and disk file 


access. Enhancements were also imcluded to provide 
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additional control structures and increased readability. In 
this section the features of BasiceE which do not appear in 
the ANSI standard will] be discussed. Appendix I includes a 


complete description of the language. 
I. Arithmetie Processina 


Basicek extendedsthe arithmetic process iingusm mumsuc- 
porting multiole dimensional arraySe However, all arrays 
must be dimensioned prior to use and the Same identifier 
cannot refer to both a subscrioted = unsubscripted varic 


able. 


Logical operators AND, OR, XOR (exclusive or), and 
NOT, were orovided for numeric variables. The operations 
are oerformed on 3e bit two's complement binary representa 


tion of the tnteaer portion of the variable. 


Useredefined functions may have any number of oarame 
eters including zero. The function must be defined prior to 
its use and, while it may refer to other functions, recurs 


Sive references are not permitted. 
eae Readability 


Readability was improved by allowing variable names 
of any length, permitting free form input with statement 
continuation, and by not reauiring all statements in the 
program to be labellec. Historically, Basic oermitted vari-= 
aole names consisting of one letter or one letter and 4a 


number. This makes larae procrams difficult to understand 





and debua. Basicw— allows variable names to be of any 
length but only the first 31 characters are considered 
unique. Basic traditionally has restricted a statement to 
one line. BasicwE provides a backslant (\) as a continua=- 
mon character thus allowing many program lines to appear as 


one statement to the compiler. 


S.elont ro! structure 


The control structures included in standard Basic 
consist of the FOR, IF, GOTO, GOSUB and ON statements. 
BasicwE increased the power of the IF Statement by providing 
an optional ELSE clause and by allowing a statement list to 
following the THEN ano the ELSE. A statement list consists 
of executable statements separated by colons. Any execut> 
able statement may oe included in the list with the excepe 


tion of another IF. 


G4. String Processing 


BasicwE contains features adequate for general 
String manipulation. Strings are created dynamically, vary 
in length to a maximum of 255 bytes, and may be subscripted. 
At any given time, a String occupies an amount of storage 
Beuel to its actual length plus one byte. The predefined 
BEN function returns the current length of a String, 41] 
string variables and string array elements are initialized 
nul) strings with a length of zero. Strings may be created 
and associated with a variable uSing the replacement opera- 


cor (=), an [INPUT statement, or a READ statement. Strings 


Fo 





entered from the consoles appearing in a data statement, or 
read from ae disk file may oe either enclosed in quotation 
marks or delimited by a comma. Features of Basicw-E allow 
concatenation of two strings to form a new strings compari= 


son of strina variables, and extraction of a string seament. 


Concatenation of two string variables has been 
accomplished with the infix operator +. The new string 
length is the sum of the lengths of the strings being con- 
catenated and must not exceed 255. Space 1s aynamically 


allocated for the new String as it 18S created. 


Strings are compared with the same relational opera 
tors used for numeric data, using the ASCII collating 
sequence. Two strinas are eaual if and only if the strings 


have the same length and contain identical characters. 


Substring extraction is accomplishec using three 
predefined functions, ee be Deimees RIGHTS(AS,n), and 
MIDS(AS,m,n). LEFTS returns the string consisting of the 
first nm characters of Ad, while RIGHTS returns the rightmost 
mecharacters of AS.j~ WIDS is a general suostring operator 
which returns the n characters of AS beginning with charac= 


ter position m. 


Other oredefined functions are proviced to facilis 
tate processing strings. The CHRE function converts a 
numeric quantity to a single ASCII character while STRS con- 
verts a floating point number in internal form to a string 


representing its value. 
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User-defined functions may contain Sthimngmoacaneters 
and, if the name of the function ends in a dollar sign, 


returns a string quantity. 
Se» Fires 


Data may be transferred between an Basicw—E program 
and externa] devices using the file processing features of 
the language. The FILE statement identifies files and 
prepares them for access. The general form of a FILE state-~ 
ment 3Sé 

FILE <file name list> 

where the file name 1s a string variable. If a file exists 
on the host file system with the name reoresented by the 
current value of the striaag variabie then that file as 
opened. Otherwise, a file is created with that name. Each 
file ts assianed a numeric identifier which is used for al] 
further references to the file. An optional bolocksize may 
mempocsociated with the file. This identifies the file as a 
direct file with a specified recora length. Data 1s 
transmitted between the file and the BasicwE machine using 
the READ and PRINT statements with the file option: 

READ <file option> ; <read jist> 

PRINT <file ootion> + <expression list> 
The file option specifies the file desired by referencing 
the file identifier. An optional record identifier speci- 
fies the record desireg when random access is used. Access 
to a file may he terminated by the CLOSE statement. 


Further, ena of file processing is specified witn the IF END 


Ie 





statement which has the following forms: 


IF END & <file identifier> THEN <label> 


Files may be organized as either sequential or 
direct. Sequential files are a linear sequence of data 
meems separated by Commas Or line terminators. Fach refer- 
ence to a sequential file retrieves the next data item or 
writes another data item. With each READ, the variables in 
the read list are assiqned values from the filee Line tere 
mepactors are treated as commaStmthere 1S no Concept Jot iia 
record as such. Likewise, with each PRINT, values from the 
expression Jist are writen to the file. The expressions are 
placed in the file as ASCII strings separated by commas 
except for the last data item in the list which 1s followed 
by 3a Jine terminator. The use of Jine terminators in this 
manner allow files to be displayed using system utilities 
maa atso allows files created with a text editor to be read 


Dy Gasic“-t programs. 


A file declared with a soecified blocksize 1s called 
Eueeectrhect file” amd 1S made up of fixed length records. 
Each record consists of a collection of data items separated 
by commas. Individual records have line terminators as the 
last two bytes of the record. Note that direct files may be 
accessed sequentially or randomly. A READ statement with no 
read list will position the file to the selected record. In 
particular: 

READ #4 1, 1, 


will rewind the file. 
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EXAMPLES OF BASIC=E PROGRAMS 


Sample BasiccE programs are presented in this section 


which are intended to show features of the language 


described above. 


1. Fibonacci Number Generator 


REMARK PROGRAM TO COMPUTE THE FIRST N 
REMARK FIBONACCI NUMBERS 


PRINT "THIS PROGRAM COMPUTES THE FIRST N" 
PRINT "FIBONACCI NUMBERS” 
Pent SAN SNe Ot OF? OU TERMINATES THE PROGRAM: 


FOR I = 17041 STEP 0 REMARK DO THIS FOREVER 

PNEUUSS ENTERS THe VALUE OR Nt) oN 

IF N = QO THEN \ 
PRINT "PROGRAM TERMINATES" 3:\ 
S) [Cle 

IF N SeeOM HEN. oy 

~ PRINT "N MUST BE POSITIVE. "3s :N\ 

PRN Pee otee ee Nee oN 

E Ob aN 
GOSUB 300 REMARK CALCULATE AND PRINT RESULTS 


NexT 1 

300 REMARK SUBROUTINE TO CALCULATE FIB NUMBERS 
Fl = 1 : Fe = 1 REMARK [INITIAL VALUES 
NUM = F 


REMARK HANDLE FIRST TwO NUMBERS CIF REQ) AS 
merARK SFECIAL CASES 


Pee el Ue 
GOSUB 400 
IF N = 0 THEN \ 
RETURN 
NEXT J 


REMARK HANDLE REMAINING NUMBERS 


PORE? = bo )O0 1 ohare 
NUM = Fl + Fe 
GOSUB 400 
Fe = iF) 

Ei = UM 
fFOoN = CO THEN \ 
RETURN 
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400 


END 


Ce 


NEXT J 
RETURN 


REMARK PRINT NEXT NUMBER AND 
REMARK DECREMENT N 
PRINT NUM, REMARK 5 TO A LINE 
N=Ne- 1 
RETURN 


Pate eceme RaitalnGm a tmoaGan 


REMARK PROGRAM BUILDS A FILE OF MAILING LABELS 
REMARK FROM we Fiwe CONTAINING 100 BYTE RECORDS 
REMARK WHICH CONTAIN NAME AND ADDRESS INFORMATION 


100 


lee MASTER(100), LABELS 
IF END # 1 THEN 100 


Opel STEREO, REM UNTIL END OF  Felgiee 


FOR INDEX = 1 T 
ry FIRSTS, LASTS, SIREGIS, CIIYS; SIA Eee 


READ #& | 
REMARK LINES ARE TRUNCATED AT 60 CHARACTERS 


LEFTS GRE RSTS + “ * + EASTS7, 60) 
LER ES GREE, 60 ) 


UNE 
eric 


REMARK =INSURES Ze Sots TRUNCATED 


DER > CO leigh t 9s + STATES 73493 
Lelie b+ Ae SRC Ze) 


Ea Ne SS 
LINE 3S 


PRINT # 23 LINES 

PRINT 4&4 23 LINES 

RR EN igi ee, LINE SS 
NEXT INDEX 


PRN = =O “CUME LE TE 


oe 
END 
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TII. IMPLEMENTATION 


A, SYSTEM DESIGN 


The Basic=E system is comprised of two subsystems, the 
compiler and the run-time monitor. The compiler includes a 
table-driven parser which checks statements for correct syn- 
tax and generates code for the BasicvwE machine. This code 
is executed by the run time monitor. The simulated machine 
iS @ zero address stack comouter which performs floating 
point arithmetic on 3e bit numberss provides varianle length 
string manioulations, and accesses sequential ana random disk 


files. 


The decision to compile the Source program ard then 
interoret the intermeaiate lanaquage was based on the follow- 
INQ considerations. Firsts formal parsing techniques could 
be used to analyze the syntax of the source program making 
extensions to the language relatively easy. In tnis case a 
LALR Porser-cenerator (14) was used to automatically gen= 
erate the parse tables for the language. This makes exten 
S10OnNS to the J)angquage relatively easy. Second, the entire 
Source program does not reside 1n main memory auring compie- 
lation. This orovidces the maximum amount of space for the 
Symbol table and, perhaps more importantly, does not penale- 
1ze the programmer for using comments and descriptive vari- 


able names. Finallyr the run=stime monitor can be modified 
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to support multiple users by making the interpreter reentere 


able at the end of each Basicw-E machine cycle. 


There are a number of considerations which dictate 
interpreting the intermediate language instead of compiling 
the source program to &080 machine code. First, the major-e- 
ity of execution time 1s involved in evaluating floating 
point operations. Since this would be implemented = as 
Subroutine calls if the compiler generated machine codes, the 
actual decrease in execution soeed due to the interpreter is 
very small. Secondly, since the system, with the exception 
Meche floating point packager, 1$ written im PL/M it 94s 
easily transportable to another microprocessor which sup- 
ports PL/M. Extensive rewriting of the coqe aeneration 


would not be required. 


The following sections discuss the aesign of the basiccrE 
machine and imolementation of the compiler and run-time mone 
itor. PL/™ source listing of the programs are attached to 


this report. 


Bee THE BASIC=$E MACHINE 


ls Introduction 


Tne BasicwE machine is a software simulation of a 
zeromaddress stack-orocessing computer, tailored to execute 
Basic programs. It is moaelead after the ALGOL-E machine 
le a The Basictc machine provides stack manipulation 


operations for arithmetic and string expression evaluation, 
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and subroutine linkage. Other operations allow console and 
file input/output, dynamic storage allocation for arrays and 
a variety of predefined functions. The Basic-E memory is 
divided into the several logical segments described below, 
including a free storage arear which is dynamically allo- 
cated by the runstime monitor. The size of the free storage 
aed varies with the available space on the host system. A 
16K system operating with CP/M provides five pages (256 byte 


blocks) of memory for the Basicr-E machine. 
é. Basicw—E Machine Memory 


The BasicwE machine nemory is divided into a static 
section and a varying section. These sections are, in turn, 
divided into a number of logical segments as shown in Figure 
le The static section consists of memory locations which 
are not altered during program execution. The following 
seaments make uo the static section of memory: 

ae The Floating-Point Data Area (FDA). The floating=- 
point data area 1S used to store numeric constants 
defined within the source program. Values may be 
loaded directly onto the stack from the FDA. 

be The Code Ares. The code segment consists of a 
sequence of Sasicwe— ORANG instructions, where each 
instruction is one byte in lenath. Certain instruc- 
tions are follcwed by one or two bytes of data which 


may refer to the PRI described below. These instruce 


tions are referred to as literals and are distinaquishea 
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FSA 
(Free Storage Area) 


VARYING 


PRT 
(Program Reference Table) 


STATIC 


FDA 
(Floating Point Data Area) 





Fiaure 1 


Structure of the NBASIC Machine 
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from regular instructions by having thetr leftmost bit 
set to one. 
Ce The Data Area. Floatine=nmoint and string constants 
defined in DATA statements are maintained in this sec- 
tion in the order in which they appear in the source 
program. 

The varying section consists of memory locations which may 

be altered during program execution. The following segments 

make up this section of memory: 
ae The Program Reference Table (PRT). The PRT stores 
the values of unsubscripted floating-point variables 
and pointers to subscripted floatinagsooint variables 
and all string On Oe Values may be loaded 
directly onto the stack from the PRT and into the PRT 
from the stack. 
b. The Stack. The stack is used during Program execu 
tion to evaluate exoressions, hold return adaresses for 
Subroutine calls, ana store values during input/output 
operations. Each stack element is four oytes wide. 
Numeric quantities are placed directly on the stack as 
Be bit floating=point numbers. References to arrays 
are stored as address quatitities occupying the first 
two bytes of the element. Bytes three and four are not 
used in this case. Strings are also referenced by 
address. However, in the case of a strings byte three 
of the stack element is a flaq usea to indicate whether 
this string is a temporary string or currently assigned 


to a variable location in the PRT. This iS necessary 
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to ensure that strings resulting from intermediate cal- 
culations are removed from the FSA. The stack iS a 
circular queue which will hold le elements. Therefore 
it cannot owerflow but wraps around, overwriting 
itself. 

ce. The Free Storage Area (FSA). The FSA consists of 
the remaining nemory space allotted by the host system. 
It is used to dynamically allocate arrays, string vari-~ 
apilies apd file buffers. Figure ¢ shows thewoggomuaas 


tion of the free storage area. 
3. The BasicwE Machine Architecture 


The BasicwE machine consists of the memory space 
descrived above along with a set of registers whose func~ 
tions are given below: 

ae Register C. Register Cr the program counter, con- 
tains the address of the next executable instruction. 
be Reaqister D0. Register Or the Data Area Pointer, is 
used to reference constants in the Data Area. 

ce. Register SS. Reaister S contains the address of the 
eurrent top of the stack. 

ce Register Aw Register A 38 a reference to the 
memory location addressed voy register S. 

Gd. Reaister 8. Register 6 is a reference to the ele-= 
ment on the stack below the element referenced by 


register S. 
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OPERATING SYSTEM 


BACK PTR AVAIL 


FwD PTR a hiGore ik AVAIL 


STACK 


Figure e 


Uraantzation of the Free Storage Area 
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Be Deseriotion of Machine [astructicons 


The Basic-E machine instructions are divided 
tieeo the following categories: literal data references, 
arithmetic and boolean operators, program control operators, 
string operators, stack manipulation operators and builtcvin 
functions. All instructions consist of one eight bit opera- 
tion code, possibly followed by one or two bytes of data. 
Most of the machine jinstructions will he described using the 
MoelOowing notations: 

a. The contents of a register are referenced as rx 


where X 3S register A, 8, C or OD. 


b. The symbol := denotes assignment. For example rA t= 
rA + 1 indicates that the contents of rA are incre= 


mented by one. ’ 


Cc. (rX) denotes the byte of data pointed to by regis= 
ter xX. ((rX)) denotes the two bytes or address quan 
tity pointed to by register X. PRT(rX) is a reference 


to the PRT cell referenced by the quantity in rX. 
a. (X}] 3s used to reference the string addressed by X. 


e. PUP is definea as rSiers-i. That ise the top elee- 
ment 1s eliminated from the stack. Likewise, PUSH is 


cefined as rS:=rStl. 


ae PE! $s defined as rlt=r0C+1. Likewise PET Vseucerence 


as rCserC+4. 
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De Literal Data References 


Literal data references are used to place 
integer constants on the stack. Literal string references 
place the address of a string constant on the stack. A 
meceral data reference is any instruction in which the left- 
most bit is a onee All such literals occupy two bytes. st 
the second bit aoe the left is a zero (a LIT), the remain- 
ing 14 bits are oplaced on the stack as an address. SUG 
Quantities are generated by the compiler for control func 
tions and may not be operated upon by the BasicwE machine 
arithmetic or logical operators. If the second bit from the 
left is a! (a LID), the remaining 14 bits refer to an entry 
in the PRT which 18 to be loaded onto the stack. A zero 
references the first element in the PRT, a one references 
the second element anc so forth. A literal string reference 
is represented by the ILS machine operator followed by a one 
byte binary number which is the lenath of the string in 
bytes, followed directly by the string characters. lhe Wiese 
operator 1s defined as follows: 

res inline string PU ohemio Geer ira) s=e Gy 


Ree -rot ore) 
ce. Arithmetic Operators 


The arithmetic and boolean operators are listed 


below along with their correspondina actions: 


OPERATION NAME ACTION 


FAD moat inae ada FR s=rbtes? POP coe 
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FMI floating minus eB s=spA=re, POP EC 


FMU fileatingemultioly rBs=srA*xrB; POP. PCi 
FDI floating divide rBs=rA/rBh oa porwr eo! 
EXP exponentiation rBsSrbircA. PCP cH 
NEG floating negation rAs= =A POP spe 
LSs floating less than if rb<rA then FBs= ye 


else rbs= 0. POP. Pel 


GIR floating greater if rB>rA then rbBs= =-1 
than . else rB:= 0. POP. PCI 
EQU floating eaual if rB=mse then res= i 


else rBs= 0. POP. PCl 
NEQ floating unequal if rB<>rA then rBs= -1 


else prBs= 0. PRS Pel 


LEQ floating less than if rB<=rA then rBi= =-1 
or equal elise rhs = 0. POr. Pel 

GEQ floating greater if rB>=rA then rBs= -1 
than or equal else re:=70. 70P.. Fel 

NOT logicadt emo rAs= NOT rA. PCl 

OR logveal or Posie OR on. FOr. teen 

XOR exclusive or fosepe XOR fA. POP see ee 


d. String Operators 


String operators allow comparsion and concatena- 
tion of variable length stings. Strings generated during 
Po gram execution are placed 1m the free storage sreary and 
Strings are always referenced indirectly hy placing the 
address on the stack. The string operators are listed below 


along with their corresponding actions: 
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OPERATION NAME ACTION 


CAT concatenate [PB] ss leb) tlefkl ee ie 
rit) 
SEQ string equal if (rBJ=(rA}] then rBs= =] 


else rBs= 0. POP. PCI 

ONE Strigoenot ceaquall 1f (rb) <> (rA) Chen ese? 
else rb:= 0. POP. PEt 

SLT string less than 14 (rB)] <(rA) then eee 


else rBs= 0. POP. FCI 


See string less than if (rB)<=(rA} then rBs= =] 
or equal else rb.= 0. Puree. & 

SGT string greater 1f (rB)>{rA) than FBsaee) 
than edisears : = (UemeOr 2) peel 

SGE string greater +f (CrBJoOS(CrA] than rBs= =! 
than or eaual elsemnes. = O.eR OP. fee 


e. stack Ooerators 


Stack operations bring elements to ano from the 
Stack, and allow manipulation of rA and rb. These operators 
are listed below with a descriotion of their actions: 
OPERATION NAME GES Gh, 

CON load constant The two bytes following the 
operator are a reference to 
an element in the FDA which 
1S to he placed on the 
stacks Fel 

LOD load variable pas =P Ri CF oe Cel 


Sale) store nondestruct PRT(rbB)3:=rA. rBs=rA. POP. 


SG 





<7 Be | 


STD store destructive PRI (rb): =r7r4e. PUP. EO 
PC1 
Sho Store string if (PRT (rB)} <>null then 


release [PRT(rB)]. PRT(r8) 


s=rA. rBserA. POP. PCI 


DEL delete from stack PGP uPels¢ 
DUP duplicate PUSH. rA:=rB. PCl 
XCH exchange <temp>:=rB. rbssrA. 


rAzs=<temp>; PC! 


~~. 


a Program Control] Operators 


Program control operators provide for program 
terminationr subroutine linkage and branching. The atrsolute 
Oranch (BRS) and conditional branch (8RC) instructions are 
followed by a3 two byte address which contains the branch 
address. In the case of the forward branches (BFN and BFC), 
mes Stack contains an increment to be added to the program 
counter. The program control operators are listed below 


along with their corresponding actions: 


OPERATION NAME ACTION 
XIT terminate execution 
NOP No oneration cal Se 
PRO Subroutine cal} PUSH. GAs =CC tS, “Peele 


al «=e 


RTN return PC t=fpa, ee OF 
BRS unconditional PE}; rC l= Cre) 
branch 


co 





BRC 


BFN 


one .e 


between the 


econcitione) 


branch 


branch forward 
conditional 


forward branch 


if rwA= 0 tien Real, 
eCs=((rC)) else rCs=rC+3; 
Pir 

PC 2S eC tra ee 

if rBs= 0 then FC s=rFetee 


else PC1. POP. POP 


Inout/Quteut Operators 


The tneut/output operators orovide data transfer 


console and the disk. Instructions are alSo 


provided to read constants from 


fron of the 
OPERATION 


RCN 


RDV 


RES 


ECR 


ARV 


operators is listed 


NAME 
Initiate console 


read 


redo nue ENG af Gorm 


console 


read string from 


end console read 


wrejite numeric to 
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the data area. The defini 
below: 

ACTION 
read console into buffer 
until endeof-line character 
Vou cd. ee © | 
Push stack. Convert the rext 
field in the console buffer 
to internal numeric and 
piace rt in Te. PCI 
Pusn stack. Place the next 
field from the console buffer 
into the FSA and put the 
put address in rAé,. PC! 
Complete console read. Check 
for data remaining in the 
Console Butter .a, ee 


Convert numeric in rA to a 





WOT 


DBF 


NSP 


OPN 


els 


RRF 


RDB 


RDN 


RDS 


console 


write string to 


console 


dump orint buffer 


soace print buffer 


open disk file 


close disk file 


initiate random 


disk read 


initiate aisk 


file for read 


read numeric from 


Current disk file 


read strina from 


5 


String and place it in the 
ore | (gemectUni teem chal A eis) 

Place string referenced by 
rA in the PGiintou! ten. 

sU ie eel e, )! 

Write print buffer tome 
sole. PC! 

Skip print buffer to next’ 
predefined tab. PC1 

Open disk file with name 
referenced by rA and block 
size in rB. Assign next file 
identifier to the files POP. 
eee. Pol 

Close disk file whose file 
identiufver is in rAseRge 

PC 1 

Ready to read disk file. rA 
contains record number, rb 
contains file identifier. 
POP, POP. PC1 

Ready to read sequentially 
from disk. rA contains file 
identifier. POPsaREs 

PUSH. Place numeric field from 
selected disk file in rA. 
gO 


PUSH. Place string fiela from 





EDR 


AKN 


WRS 


EDW 


DEF 


DEF 


ROI 


Current disk  fite 


end disk read 


write numeric to 


disk 


write string to 


disk 


end disk write 


define enad-of 


file 


define end of 


file 


restore 
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Selected disk in FSA and place 
address in rA. PCli 

Complete disk reaag. If the 
file is blocked, skip to the 
next Tine teminator. PCI 
Convert numeric in rA to 
string and place in current 
d1Sk Me@ecord. POP an om 

Place string addressed by rA 
Imecurrent cisk PeGcorawemeas 
heal 

Complete aisk write. If the 
file is blocked, fill» the 
remainder of the record with 
blanks and append a line 
terminator to the record. PCl 
The two bytes followina the 
operation cooe 1S a branch 
aodress where execution is 

to begin if ende-ofefile is 
detectea on the file refer=- 
enced by rA,. POP. PCl. 

Two bytes following operation 
code 1s branch adaress if end 
of-file is detected on file 
referenced by rA. POP. PC3 
The data area oointer is set 


to the beginning of the data 





DRS 


DRF 


OUT 


INP 


operations 


of machine 


area. PC] 

read string from PUSH. Place next data area 

data area field into the FSA and put 
address in rA. PCI 

read numeric from Push stack. Convert next 

data area field in data area to inter 
nal numeric and place in frA, 
Pier 

output to port The tow order 8 bits votmeune 
value in rA is output to the 
8080 machine port represented 
Byers. FUP. Weer cd 

Inout from port Ra is set to the value input 
from the 8080 machine port 


reoresented by rA. PC] 


Builtewein Functions 


BasicwE bouiltwrin functions perform complex 


which, 1M a real machinery might reauire a number 


VAS tCeCUC Tt lions. A descriontion of these orerations 


1S given below. 


OFERATION 


ROW 


NAME ACTION 
array setup used to aid in setting=uc 
an array in the FSA in frown 
major oraer. rA contains the 
numoer of aimensions.e Relow 
rA 31S each dimension. The 


lower bound is 0. PCi 


3) 





SUB 


CBA 


ABS 


INT 


RND 


Pinas 


SGN 


SIN 


COS 


ATN 


SQR 


TAN 


Exe 


subscript 


calculation 


convert to binary 


absolute value 


convert to intege 


random number 


available space 


1m ESA 


S1oRnot ume t.10mM 


sine function 


cosine function 


arctangent function 


SQuare roct 
function 
tanaent function 


exponentiation 


r 
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Used to compute the address 
of an array element 1n the 
FSA. The byte following the 
opcode is the number of 
dimensionse The indices are 
on the stack. PC! 

The numeric value in rA is 
converted to a 16 bit binary 
value. PCI 

rAs=absolute value of rA 
Gal 

rAs=integer portion of rA 
Eee 

PUSH. rAs=random number 
between Q and 1. PCI 

PUSH. rAt=unused space in 

F oueek | 

1f rA>0 then rAsz=1 else 


if rA< then rAs= -1 else 


rAs=sine(rA); PCl 
rAs=cosine(rA)s; PCl 
Pea oretan re ) same | 


rAs= (rA). PC! 


rAsstanaqent(rA); PCl 
rAs=e raised to the rA 


power where e = ¢€.7182e8... 





COSH 


SINH 


LOG 


POS 


ASC 


CHR 


TAB 


ar 7 


hyperbolic cosine 
function 
hyperbolic sine 
fune trom 
natural log 


function 


Sf lmtp osi t ) on 


character convert 


string convert 


tab print buffer 


left substring 


BV 


PC1 


rAsscosh(rA); PC! 


rAs=sinh(rA); PC} 


PAs rh) ee ee 


PUSH. rAt= current cos whom 


of the print buffer pointer. 
PC 1 


rAs= the ASCII numeric value 


of the first charachter of 
the string referenced by rA,. 
Pet 


The value tin rA 18 converted 


to a strina in the FSA. & 


reference to the strina is 


placeaqg in rA. FC} 


The print buffer cointer 15 


set equal to rA mod 7e. POP. 


eet 


rA contains the number of 


bytes of the right portion 
of the string referenced by 


rB which will form a new 


string which 1s placed in 


the FSA. A reference to the 


String 1S O1Sscea Where eeeo. 





RIGHT 


MID 


RON 


CKO 


F1qgnt “substring 


substring 


rouna to 


check on 


index 


index 
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el 

rA contains the number of 
bytes of the right portion 

of the string referenced by 
rB which will form a new 
string in the FSA. rB Is set 
equal to the address of the 
mew string. POR ce. 

Three parameters are on the 
stack. The first 1s tae 
length of the Substring to be 
created in the FSA. The sec- 
ond is the starting point into 
the string referenced by the 
third parameter. fhe top two - 
elements are popped from the 
stack and rA is set equal to 
the address of the substring. 
PCI 

The floating point Number 

im PA 38 rounded to the 
nearest integer and con- 
verted to a lo bit address. 
PC} 

rA contains the max number 

of labels in a ON statement. 
rB 3s tne number of the se- 


lected lanel. If rB>rA or 





rB=-0, then an error occurs 
otherwise POP. rAs=rAx3t1 

BOL beginning of line rA contains the number of the 
line being executed. This 
value 1s saved for diag- 
NOSticsS ee! Upeu ow 

ADJ adjust oranch rAs=rAtbase of code area. 


address PC 1 


meme COMPILER STRUCTURE 
1. Compiler Organization 


The comoiler structure, diagrammed in iene 3, 
requires two passes through the source program to produce an 
intermediate language file with optional source listing at 
the console. One vass writes all numeric constants to the 
Bigeetile and determines the size of the code area, data 
arear, and the PRI. These parameters are sent to the INT 
file at the end of pass one. By passing the numeric cone 
Stants to the run-time monitor as unconverted ASCII strings, 
the compiler does not require the floating=point conversion 
package, savina considerable memory space. Pass two 
resolves forward references and outputs the stnciratoe code 


to the INI file. 
Ce. Scanner 


The scanner analyses the source program, returning a 


sequence of tokens to the parser. In addition, the scanner 


4 | 





em. BAS ea. 


Symbo | 
taole 


Parser CODE 
stacks GENERATOR 








Parse ? 
tables 


Figure 3 


Basic=E Comoiler Structure 
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provides the listing of the source filer, skips remarks, 
processes data statements, sets and resets compiler toggles, 
and recoanizes continuation characters. Analysis of the 
first nonwblank character in the input stream determines the 
general class of the mext token. The remainder of the token 
is then scannegr placina each successive character into the 
array ACCUM. The first byte of ACCUM contains the length of 
the token. The global variables TOKEN, SUBTYPE, FUNCOP, 
HASHCODE, and NEXTCHAR are set prior to returning to the 
parsere In the case cf string constants whose length exceed 
the tength of ACCUM, a continuation flag is set to allow the 


parser to obtain the remainder of the string. 


If the scanner recognizes an icentifier, it searches 
the reserved word table to determine if the identifier is a 
reserved word. If founds, the token associated with that 
reserved word 1S returned to the parser. If the reserved 
word 1S 2 predefined function name, FUNCOP 31s Set to the 
machine operation code for that function and SUBTYPE is set 
to provide additionsa|] information avout the function, as 
Shown in Figure 4, 

Compiler togaqlesry statement continuation characters, 
listing of source lines, and data statements are handled by 
the scanner. Data statements processed by the scanner per- 
mits the string constants to appear as though read from the 
console, and thus they may or may not be delimited by quota- 
tion marks. In additions, constants defined in DATA state- 


ments can be located in a common area of the BasicwE machine 
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—_— 


type of type of number of 
fume Crom parameters parameters 
Type of parameters: 0 if numeric 


1 ts tran 


bit e2 iS oarameter 1 
bit 3 18 parameter e 
bit 4 jis parameter § 


PY¥@e. 0 te fume tancin.: O if numeric 
bt string 


Figure 4 


Subtyoe Field for Predefined Functions 
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which simplifies the run=time processing of READ statements. 
The penalty of not being able to syntaxecheck the constants 


is considered worth the gain in simplicity and flexibility. 
3. Symbo) Table 


The symbo) table stores attributes of program and 
compiler generated entities such as identifiers, function 
names, and labels. fhe information stored in the symbol 
table is built ana referenced by the compiler to verify that 
the program is semantically correct and to assist in gen- 
erating code. Access to the symbol table 1s provided 
through a number of subroutines overating on the symbol 


table global variables. 


The symbdo! table iS an unorderead linear Ilist of 
entries which aqrow toward the top of memory. Individual 
Peeements are accessed through a chained hash addressing 
scheme as diagrammea in Figure 5. Each entry in the hash 
table heads a linked list whose orintnames all evaluate to 
the same hash address. A zero in tne hash table indicates 
no entries exist on that particular chain. During refer= 
ences to the symbol table the global variable PRINTNAME con- 
tains the address of a vector containing the length of the 
printname followed by the printname itself. Tne global 
variadle SYMHASH is set to the sum of the ASCII characters 
in the printname modulo 64. Entries are chained such that 
the most recent entry is the first element on the chain,y but 


they ohysically aonear in the symbol table sequentially in 


US 





FOR LOOP 
DATA 

TOP OF USABLE 

{ ADDRESS SPACE 


SBTBL 

63 

1 
SYMHASH ENTRY 
link field 

1 
0 
HASHTABLE 






PRINTNAME 





SYMBOL 
TABLE : 


Figure 5 


Symbo) Table Oraanization 
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the order they are entered. 


Each entry in the symbol table consists of a 
variable~length vector of eight entries. Figure 6 diagrams 
atypical entry. In the case of user-defined functions, the 
entry takes on a different format as shown in Fiqure 7. The 
parameters of a user-defined function are anuanee into the 
symbo] table using the same format as a typical entry shown 
in Figure 6. To insure that the parameter names are local to 
the function definitions the entries for useredefined func- 
tion parameters (if there are any parameters) are linked to 
the symbol table during code generation for the function and 
removed from the symbol table during the remainder of the 
PaSSe Since the paramaters anpear directly after the entry 
for the function, a reference to a user-defined function 


accesses the parameters relative to the function name, 


The symbol table 18s accessed using 1! primitive 
meme tions. LOCKUP jis called with global variables SYMHASH 
and PRINTNAME set. If the printname is found, LOOKUP sets 
BASE to the heginning of the entry and returns true. Other- 
wise false is returned. ENTER also requires SYMHASH and 
PRINTNAME to be set and will build an entry placing it on 
the appropriate hash table chain. GETYPE, GETADDR, and GET= 
SUBTYPE access fields in a particular symbol table entry 


while SETYPE, SETADDR, ana SETSUBTYPE enter values in the 


corresponding fields. SE PRES returns true tf the adcacress 
field has been resolved and false otherwise. RELINK ana 
UNLINK orovide local access to function oarameters as 
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Figure 7 


Table Entry For a User=Defined Function 
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discussed above. Al) the routines, with the exception of 
LOOKUP and ENTER, assume that BASE points to the proper 
entry. The symbol table vector is also used to maintain 
information required during FOR loop code generation. Each 
FOR loop uses eight bytes of the vector. This storage 1s 
allocated starting at the highest usable address in memory 


and builds toward the symbol table entries. 
q. Parser 


The parser is a table=driven pushdown automaton. It 
receives a stream of tokens from the scanner and analyzes 
them to determine if they form a sentence of the Basicw=E— 
Sigammiar. AS the oarser accepts tokens» one of three actioms 
will be voerformed. It may stack the token and continue to 
analyze the source oroaram by fetching another token, or the 
parser may determine that it has recognized the right cart 
of one of the productions of the language and cause a reduc: 
tion to take olace.e. Finally, the parser may determine that 
the current string of tokens does not produce a valid right 
Beet for a production and thus produces a syntax error mes= 
sage. The Basic™E grammar is designed so that each state= 
ment parses to a comolete program causina a source program 
to apnear as a series of programs. When an error is 
detected, the input characters are scanned until the end of 
the statement 1s found. The parser 15 then reinitialized, 
and the next "program" is oarsed. The major data structures 
in the parser are the LALR parse tavdles ana the parse 


Stacks. 
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The parse stacks consist of a state stack and = six 
auxiliary stacks. These auxiliary stacks are parallel to 
the parse stack and are used to store information required 
during code generation, such as token valuesr symbol table 


pointers, and temporary values associated with reductions. 
5. Code Generation 


In addition to verifying the syntax of source state 
ments, the parser alsSo acts as a transducer by associating 
semantic actions with reductions. Each time the parser 
determines that a reduction should take placer, the procedure 
SYNTHESIZE is called with the number of the oroduction 
eeseO 3S 8 OSsrameter. The parse stacks contain the infor- 
mation required to perform the semantic action associated 
with the selected production. The action may include gen- 
eration of Basic~E machine code and operations such as syme 
bol table manisculations and updating of the parse stacks. 
some productions have no semantic actions associated with 
them. In the following sections, the syntax of the language 
will be listed in the BNF notation followed vy the Semantic 
actions, offset with asterisks, associated with cnet proeguc= 
Haron « Pies ceschiption will be im “terms of come) len mica. 
Structures and the Basic7E machine code generated. This 
notation 1s similar to that used in Ref. Il. For example 
Production 57 would be described as follows: 

<variable> ::= <subscrint head> <expression> ) 
k<subscriot head>; <expression>,;LID array name; 


* SUB 
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This indicates that code for the noneterminal <variable> is 
generated by first producing a <subscript head> and an 
<expression>, and then emitting a LID followed by the = array 
name and aeSUB. The reference to the array name would be 


stored in a parse stack. 
a. BasicwE Language Structure 


The overall structure of the BasicvwE jianguage 15s 
Given by the following syntax equations: 


(1) <program> ::= <line number> <statement> cr 
k*<line number>s; <statement> 


(2) <line number> $3= <number> 
*<number> 
(3) + <emot y> 


(4) <statemet> 3:= <statement list> 
k<statement Jist> 


GS.) i<if statement> 
x<if statement> 

(6) ;<eno statement> 
k<end statement> 

af.) ;<dimension statement> 
k<dimension statement> 

(8) +<define statement> 


*<define statement> 


(9) <statement list> ::= <simole statement> 
—*«<simple statement> 
(10) ;<statement list> : <simole statement> 
k<statement list>;z <simole statement> 


ort) <simple statement> :3:= <let statement> 
k<let statement> 


ire ) ;<assianment> 
| k<assianment> 
(13) (<for statement> 
| *<for statement> 
(14) *<next statement> 
k<next statement> 
eT ) i<file statement> 
k<file statement> 
6 ) ‘<close statement> 
*<close statement> 
ci7) ;<read statement> 


k<read statement 
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8) i<print statement> 
k<print statement> 


(19) (<goto statement> 
k<goto statement> 
(20) '<gosub statement> 
| zk<gosubd statement> 
Ge 1) *<input statement> 
zk<input Statement> 
(22) (<stop statement> 
k<SsStop statement? 
(23) r<return statement> 
k<return statement> 
(24) (<on statement> 
k<on statement> 
75) ;<restore statement> 
x<restore statement> 
(26) ;<randomize statement> 
k<randomize statement> 
(27) ‘<out statement> 
| k<out statement> 
(28) ;<empty> 


be Assignment Statements and Exoressions 


The following oroductions generate code for 
assignment Statements and expressions. The types) of 
operands which are legal for each of the binary operators 15s 
shown in the Jable 1. The operand for the unary operators 
t, =, and NOT must be numeric quantities. A check is made 


to insure the above semantic rules are followed. 


Checks are also made to insure that subdscripted 
variables are dimensioned vefore being usedr that they have 
the correct number of Subscripts, that each subscript is. of 
type numerics and that a subserniocee variadle 1S not used as 
a FCR loop index. Likewise, checks are made on the number 
and type of parameters ina function call to insure they 
march the function definition. 


(29) <let statement> ::= <assiaqnment> 
*<assiqnment> 
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(39) 


1) 


(32) 


(33) 


(34) 


(35) 


(36) 


(38) 


59 ) 


(40) 


(41) 


(42) 


C44) 
C45) 


(46) 


Ga7 ) 
(48) 


(49) 


ec } 


<assiaqnment> ::= <assign head> <expression> 
k<assign head>; <expression>, if type of 
kexpression string then STS otherwise STD 


<assign head> ::= <variable> = 
k<variable>; if simple variable then 
*LIT <variable> 


<expression> ::= <logical factor> 
zk<loaical factor> 
;<exoression> <or> <expression> 
k<expression>;s <exoress10n>; <or> 


<xor> ::= OR 
*BOR 

x OR 
x*XOR 


<logical factor> ::= <logical secondary> 
*<loqical secondary> 
$<logical factor> AND <logical factor> 
x<logical factor>s <loaical factor>; AND 
<loaical secondary> ::= <logical orimary> 
k<Joqical orimary> 
~NOT <logical secondary> 
k<jlogical secondary>; NOT 


<loqical orimary> ::= <arithmetic expression> 
k<arithmetic exopression> 
i<arithmetic expression> <relation> 
<arithmetic execression> 
*<aritnhmetic expression>s <arithmetic expression; 
k<relation> 


<arithmetic expression> $::= <term> 
ke<term> 
;<arithmetic expression> + <term> 
k<arithmetic expression>;s; <term>; 
kif string then CAT else FAD 
i<arithmetic expression> = <term> 
k<arithmetic expression>s; <term>s FMI 
1+ <term> 
k<term> 
1~= <term> 
k<term> NEG 


<term> 
k<or 


<= <primary> 
mary> 
;<term> * <primary> 
k<term>; <oprimary>; FMU 
;<term> / <primary> 
xe<term>; <orimary> FDI 


1 


<orimary> :s:= <element> 
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(51) 
(52) 
(53) 


(54) 


Ge) 


(56) 


ey? ) 


i ) 


G7 ) 


(60) 


(61) 


toc ) 


5 ) 


(64) 


zx<element> 
i<primary> fT <element> 
k<primary>s <element>; EXP 


<element> ::= <variable> 


k<variabdle>, 
kif simple variable then LID <variable> 
kotherwise LOD 

+<constant> 
kK<constant> 

woTunic tone a) 1> 
*<function call> 

1( <expression> ) 
k<expression> 


<vyariable> ::= <jdentifier> 


k<identifier>; {olace <identifier> in the 
xsymbol table if first reference and set 
tthe type to simple} 

i<subscript head> <expression> ) 
*<subscript head>;, <exoression>; 
*LID array name; SUB 


<subscript head> ::= <identifier> ( 


e<identifier>s {check that <identifier> has 
xpeen oreviously dimensioned ana save 
kfor future use} 

+<Ssubscript head> <expression> , 
*<subscript head>s <exopressjion> 


<function call> ::= <functionmn head> <expression> ) 


k<function head>s <expression>; 

kfor userwdefined function if type <exoression> 

String then STS otherwise STDs PRO 

kfor predefined function function name 

tahere function name was saved in croduction 65 
+<function name> 

for user-defined function PRO otherwise 

x*functton name where function name was saved in 

ROmOQCUIG t Om les 


<function head> ::= <function name> ( 


*<function name>; 

kif user-defined function then LIT parameter address 
k*where parameter address iS determined from 

*symbol table entry for the function. 

'<function name> <expression> , 
k<function name>sz <expression>s if user-defined then 
kif type <exoression> string then STS otherwise STD 
*LIT <parameter aodress> 
xwhere <parameter address> is determined from 
ksymbol taodle entry for the function. 


<function nmame> ::= <user-defined name> 


kicheck that <user daetined name> 1s in the 


> ie, 








zksymbo!l table} 
(65) ;<predefined name> 
x{save predetined name for future use} 


(66) <constant> %::= <number> 
k<number>; CON next constant location 
kif pass 1 spool to INT file 
(67) i<string> 
~bESe<st hing 


mee) <relation> ::= = 


*EQU 
(69) +GE 
| *GEQ 
(70) ,>= 
x*GEQ 
(71) : <= 
x*LEO 
Gic) ,eE 
*LEQ 
(73) :> 
*GTR 
(74) : 1 < 
. xeoS 
G75 ) <> 
xNEQ 
(76) ,NE 
xNEQ 


ce Control Statements 


The control statements in the BasicwE ltanguage 
are given by the following Syntax equations: 


(77) <for Statement> ::= <for head> TO <exoression> 
<stenp clause> 
k<for head>; <exoression>s <step clause>, . 
kif steoclause then DUP, 
*LID <ijindex>; FAD; 
kif stepclause then LIT <index>; XCH; 
zo1U; 
Ate stepc |\ause .OCh7 ell Weo,t oso, Ll! S; BFE; PEnE 
kif stepclause LIT e; BFN,; 
APieGs HRG EXI1; CODE: 


(7/8) <for head> ::= <for> <assiaqnment> 
k<for>; <assianment>; BRS CODE; TEST: 
kSave the <identifier> for use later} 


ee?) <for> ::= FOR 
{set forstatement flaaq true} 


(80) <step clause> ::= STEP <expression> 


Sie 





(81) 


(143) 
(144) 


(145) 
(140) 
(82) 
(83) 


(84) 


(85) <if group> 


(86) 


(87) 


(88) 


(131) 


Se ) 


(135) 


(134) 


>> ) 


(136) 


ers /) 


zk<expression>, {set stepclause true} 
i<empty> 

zkiset stepclause false}; 

eLIT <index>; CON 0 


<next statement> $= <next head> <identifier> 
k<next head>-s <identifier>s BRS TEST; 
SEXIT: 
Mix 
EORS CE Sil pee ei. 


<next head> 3::= NEXT 
'<next head> <identifier> , 
*ORS TEST. EXIT 


<if statement> ::= <if gqroup> 
A<) tf @OnOUDS sme. 
if else aroup> <statement list> 
e<if else group>; <statement list>; END: 
(TF END # <expresstion> THEN <number> 


k<expression>; {resolve label}; DEF; LABEL: 


23= <if heag> <statment list? 
k<if head>s <statement list>s END: 
1<if head> <number> 
k<if head>; {resolve label}; BRS LABEL 


<if else group> ::= <if head> <statement list> ELSE 
k<}f head>; <statement Jist>, ELSE?; BRS END 


<if head> IF <expression> THEN 
k<expressi1on>, BRC END 


<goto statement> %::= <qoto> <number> 
*<goto>; {resolve label}; BRS LABEL 


<on statement> 3:= <on goto> <label list> 
k<on goto>; <label list>? {save numoer of labels 
kin <label list> for later use} 
'<on gosub> <label list> 
t<Oon gosub>;s, <label list>s {save number of labels 
ein <label list> for later use}, ENDS 


<on goto> ::= <expression> <qoto> 
k<expression>; <goto>s RON: LIT number of labels; 
eCKO; BFN 

<ongosub> ::= <expression> <gosub> 
k<expression>;s <gosub>; LIT END; ADJ; XCH; RON; 
eLIT mumber of labels; CKO; BFN 


<label list> 3::= <number> 
{resolve label}; BkS LABEL 


'<label list> » <number> 


af 





k<Jabel list>; {resolve label}, BRS LABEL 


(138) <gosub statement> ::= <gosub> <number> 
k<gosup>; {resolve label}; PRO LABEL 


(139) <goto> ::= GOTO 
(140) {GO TO 


(141) <gosub> ::= GOSUB | 
(142) 


(148) <return statement> :3:= RETURN 
*RTN 


(149) <stoo statement> 3::= STOP 
: aXIT 


a: Declaration Statements 


The declaration statements in the BasiceEe 
language are given by the following syntax equations: 


(89) <define statement> ::2= <ud function name> 
<dummy arg list> = <expression> 
k<ud function name>sz <dummy ara list>, 
*<expression>; XAXCHs RIN; END:; 
k{unlink dummy arguments from Symbol table} 


(90) <ud function name> ::= DEF <usercefined name> 
*BRS END; {if passe relink dummy arguments into 
ksymbo!] table} 


(91) <dummy arg list> ::= <dummy arg head> <identifier> 
xk<dummy arg head>; <identifier>; {enter dummy 
kargument in symbol tabl¢4} 

(92) '<emot y> 


(93) <dummy arg head> ::= ( | 
(94) +<dummy ara head> <identifier> , 
| x<dummy arg head>; <identifier>; {enter aummy 
xargument in symbol table} 


(95) <file statement> 


>3=> <file head> <file declaration> 
x<file head>; <fi 


le declaration> 


(96) <file head> ::= FILE 
(97) i<file head> <file declaration> , 
k<fijle heagc> <file declaration> 


(98) <file declaration> ::= <identifier> <file rec size> 


kt <file rec sizer; {if <identifier> 1S not in 
xthe symbol table enter it}s LID <identifier>; OFN 
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(99) <file rec size> 3::= ( <expression> ) 
k<exoression> 
+ <empty> 
kLIT 0 


mmol) <dimension statement> ::= DIM <dimenSion variable Jist> 
k*<dimension variable list> 


(102) <dimension variable Jlist> %3:= <dimension variabvle> 
| kK<dimension variable>; ROW subscript counts STD 
(105) +<dimension variable list> , 
‘i <dimension variable> 
k<dimension variable Jlist>s <dimension variable>; 
kROW subscript counts STD 


(104) <dimension variable> ::= <dim var head> <expression> ) 
x<dim var head>; <expression>;, {increment count of 
ksubScrionts ana save for future use}; RON 


(105) <dim var head> 3:25 <identifier> ( 
k{enter <identifier> in symbol tanole}, 
kLIT <identifier> 

Gin) 6 ) ><dim var head> <expression> , 
a<dim var heaa>; <expression>;s {increment count of 
kSuoScripts and save for future use}; RON 


a 


Cs Inout/Output Statements 


The  inout/outout statements in the Basie 
languaqge a hie qiven by the following Syntax equations: 


mmm <close statement> ::= CLOSE <close list> 
kt<close list> 


(108) <close list> %:= <expression> 
*<exoression>; CLS 

+<close list> , <expression> 
k<close JiSt>; <exoression>; CLS 


(109) 


(110) <read statement> ::= READ <file option> <readlist> 
x<file option>s <read list>; EDR | 
il} ) ‘READ <reaa list> 
*<read list> 


Clie) <input statement> ::= INPUT <prompt ootion> <read list> 
k<prompt ootion>; <read list>;, ECR: {set innputstmt 
kinoutstmt false} 


mi 5) Seromot ODOC Rm <°= <conmstant> - 
k<constant>; wST; ORF; RCNG {set inoutstmt true} 


C114) +<emoty> 
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(115) 


ieleto ) 
(11/) 


(118) 
(119) 


(120) 


(121) 


(122) 
(123) 


(124) 
(125) 
(126) 
(127) 


(12d) 


ic 9 ) 
(130) 


(147) 


LDBF >, RON, (set VwRouts timt. tipwied 


<read list> 


£3:= <variable> 
*<yvyarjable> ; 


code from table 2 


;<read list> » <variable> 
k<read list> ; <varijiable>; code from table 2 
1<empty> 


<print statement> 3:3:= PRINT <print list> <print end> 
k<print Jist>, <orint end> 


‘PRINT <file option> <file listo 
k<file option>; <file list>; EDW; {set fileio false} 


<print list> %:3:= <exoression> 
x<expression>;, if string WST otherwise wRV 
(<print list>s <print delim>; <expression> 
k<print list>; <orint delim>; <expression>; 
kif string WSF otherwise WRY 
,<empty> 
<file Jist> %:= <exporession> 
xk<expression>; if string WRS otherwise WRN 
i<file list> , <exoression> 
k<expression>; <exoression>; if string WRS 
kotherwise WRN 


<print end> ° 
k<orint deli 
xOBF 

<file option> ::= 4% <expression> ,; 
k<expression>; RON; RDB; {set fileio true} 

12 <exoression> », <expression> 
k<exopression>; <exoression>; RDF; RON; XCH; RON; 
k{set fileio true} 


<print delim> %33= ; 
| 
18 


*NSP 


<out statement> ::= OUT <expression> , <expression> 
k<expression>; <expression>; RON; XCH; RONe OUT 
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Table 1 


Permissible Variable Types With Binary Operators 





string numeric 

string type le + error 
numeric error type lr, type er + 
type 1 operands type 2c operands 

< >= = or 

<= <> ® and 

> = / xor 

= (assignment) t 


Table e 


Code Generation For Input/Output 


String numeric 





Input RES RDV 


statement 


file read RDS RDM 


Same hire 


data area DRS Bloda 


read 


o1 





D. RUN-TIME MONITOR STRUCTURE 
ie Ordamiyzat 10m 


The Run=Time Monitor consists of three modules, the 
initializer, the interpreter, and the floating point packe 
age. The initial) oraanization of memory is shown in Figure 
lia. Execution Of “4 BasiceE program is accomplished by 
passing the name of an INT file to the BUILD initializer 
program. The BasicrE machine is then constructed above the 
BUILD program in memoryr and control 18S passed to the intere 
preter. The entire BasicsE machine 18 repositioned to 
Baerce dbeve the interoreter ama execution of the #asicE 
machine code begins. Execution continues until Q@ Geet 
instruction is encountered, or a control*ez is entered in 


response to an input statement. 
eC. Initializer Program 


The initializer program sets up the floatina point 
Beexoge and then opens the INT file of the program to be 
executed. The BasicsE machine is constructed by creating 
the FDA, Code Area and Data areas. The numeric constants 
appear first on the INT file separatea by asterisks. Each 
constant 1S converted to the internal floating point 
reoresentation ang storead in the FDA. The list of constants 


1s terminated by a dollar sign. 


Three 16 bit binary numbers follow the constants in 


the INI file, which reoresent the size of the code area, 
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size of the data area, and the number of entries in the PRI. 
This allows the BUILD program to determine the absolute 
address of each Section of the BasicwE machine. The 
addresses of the machine sections are passed to the inter= 
preter through fixed locations in the floating point packe- 
age. lf sufficient memory is availabler the generated code 
momread from the INT file and olaced in either the Data sec- 
tion or the Code section of the machine. Constants from 
Meee statements are placed in the data area. All other 
instruction are put in the code area. In the case of BRS, 
BRC, PRO, CON, and DEF instructions, the address” following 
the instructions 1s relocated to reflect actual machine 
addresses. The BUILD program continues reading the INT file 
Mi! 2 /FR instruction code is encountered. Control is 


then passed to the interpreter. 
a. Interpreter 


The interpreter repositions the Basic-E machine’ so 
that the space occupied by the BUILD program may be reused 
meraure iib). The FSA and Basic=E machine registers are 
met ia) ized and then the problem program is executed by 
interpreting the Basic-E machine instructions. The major 
Gata structures in the interpreter are the FSA, stacks con- 


sole buffer, and print buffer. 


The organization of the FSA was outlined in section 
- Three primitive functions are provided to manipulate the 


linkea lists. GETSPACE(N) returns the address of a block of 
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ime consecutive oytes of storage using | first=fit Ssisoritaa., 
RELEASE poleces a block of storsgqe backeint cute sem oo lnc? 
available Storage. AVAILABLE returns the number of bytes of 


storage available in the FSA. 


Arraysr file buffers, and strings (with the excep- 
tion of string constants defined in the program) are dynami- 
cally allocated in the FSA. Each allocated block of storage 
fa on AVAIL byte associated with it (see Figure e). When 
the storage contains a string the AVAIL byte indicates the 
number of variables which are referencing the string at a 
particular time. For exampler execution of the following 
program segment: 

Moe aA  SURerNG™ 

POR = Siero 100 

A$(I) = XS 

NE el 
would allocate storage for X53 but then each assignment of X$ 
to an element of AS would increment the AVAIL counter and 
Memecreate a new copy of the string. If the AvAIL byte 
reaches 255 a new copy of the string is created. When an 
assianment to a string variable takes mnlace and the string 
previously associated with that variable is in the FSA (Cit 
also may be a constant or null) the AVAIL byte of the old 
String is decremented and if it is 1 the space occupied by 


the string 1s releasec. 


The Basic=#E machine Stack is implemented as a four 


Dyte wide circular stack. The top two elements are rA and 
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rB. Al] access to the stack i$ in terms of these cointers. 
Primitive operations are provided to push and pop the stack, 
interchange the top two elements, and load a value onto the 


Stack. 


The inout buffer is a temporary storage for characm- 
ters entered from the console. The entire line is read by 
CP/i™ and placed into the buffer. Individual values are then 


extracted as required for RDV and RDS macnine instructions. 


The print line buffer is used to store characters as 
an output line is develooved. After all data for a print 
ime has been olaced in the bufferr, the data line is 
erinted. A buffer-sointer is used to keep track of the next 
Suemlable cosition where a character can be placed. The 
bufferspointer may ce repositioned with the NSP and TAB 
Iinstructionss tne buffer is emotied by executing a DAF 
instruction or when the buffer*nvointer exceeds the end of 


the orint buffer. 


G4. Floating=Point Package 


The floating point package consists of a set of 
Subroutines written in 8080 assembly language which perform 
arithmetic, function evaluation, and conversion operations 
on 32 bit floating point numbers. The package was obtained 


from the Intel User Library (8). 
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IV. RECOMMENDATIONS FOR EXTENSIONS TO BASIC$E 


There are @ nmumber of potential extensions to the 
Basic-E language which could be made. They include formate 
ted inout/output, a TRACE statement for debuggings and addi- 


tional string processing features. 


Basic processors have traditionally implemented formate 
ted input/output by modifying the print Statement as shown 
below: 

PRINT USING <format string> ; <expression> 
The format string contains a description of the format into 
which the values in the expression J1isSt are to be placed. A 
disadvantaqe Ot eer formatted I[/0 in Basicr-E 318 the 


amount of memory required to interpret the format strings. 


A TRACE instruction would list the Source program line 
numbers as each statement was executed and optionally print 
the current value of selected varianles. An accompanying 


UNTRACE Statement would disable the trace. 


Additional string operators could include a search 
function which woulda determine the position of one string 
within anothers and a substrina replacement ovoeration which 


would replace a substring with another (possibly null) 


String. 


66 





The above additions to the Basic-E language were not 
incorporated because of the limited time available to come 


plete the oroject. 


Bedesirable mogitication to the design jos Seth emme acc oe 
Run-Time Monitor would be segmenting the interpreter into 
modules and then loading only those modules which where 
actually required for the execution of the program. This 
would provide more memory for the bBasicrE machine without 
loss of capability. Possible segments might incluoce a base 
segment with the numeric processing functions, a transcen- 
dental functions segments, a string processing segment, and a 
file handling segment. Special ourpose features, Such as 
matrix operations and plotting routines, could easily be 


included as segments. 
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APPENDIX I = BASIC“E LANGUAGE MANUAL 


Elements of BASIC-E are listed in alphabetical order in 
this section of the manual. A sSynoosis of the element 15 
shown, followed by a description and examples of its use. 
The intent iS to provide a reference to the features of this 


implementation of BASIC and not to teach the Basic Lanquage. 


A program consists of one or more oproperly formed 
BASIC-E statements. An END statement, if present, ter 
minates the orogram, and additional statements are 1gnored. 
The entire ASCII character set iS acceoted, but all state- 


ments may be written using the common 64-character subset. 


In this section the "synopsis" presents the general 
form of the element. Square brackets [] denote an optional 
feature while braces {} indicate that the enclosed section 
may oe repeated zero or more times. Terms enclosed in < > 
are either non-terminal elements of the language, which are 
Miether defined in this section, or terminal symbols. Al} 
special characters and capitalized words are terminal Ssyme 


Bois. 
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ABS 
ELEMENT: 


ABS predefined function 


SYNOPSIS: 


ABS (€ <expression> ) 


meoORIPTION: 
The ABS function returns the ansolute value of the 
<expression>. The argument must evaluate to a floating 
point number. 

EXAMPLES: 
ABS (X) 


ABS (XY) 


69 





ASC 


BE MENT s 


ASC predefined function 


SYNUPSIS: 


ASC ( <expression> ) 


DESCRIPTION: 


Tne ASC function returns the ASCII numeric value of 
the first character of the <expression>. The argument 
must evaluate to a string. If the length of the string 
more (nul! string) an error will occur. 


EXAMPLES: 


ASC(AS) 
ASC("X") 


ASC (RIGHTS(AS,7)) 
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ELEMENT: 


ATN predefined function 


SYNOPSIS: 


AIN (€ <expression> ) 


DESCRIPTION: 
The ATTN function returns the arctangent of the 


<expression>. The argument must evaluate to a float- 
incepotnt mumber. 


SAMPLES: 
ATN(X) 
ATN(SGR(SIN(X))) 
PROGRAMMING NOTE: 


All other inverse trigonometric functions may be come 
puted from the arctangent using simple identities. 
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CHR 
ELEMENT: 


CHRS predefined function 


SYNOPSIS: 


CHRS ( <expression> ) 


DESCRIPTION: 
pre CHES function returns a character string of =tengen 
1 consisting of the character whose ASCII equivalent 
is the <expression> converted to an integer modulo 
ya oe The argument must evaluate to a floating point 
number. 

EXAMPLES: 
CHRS(A) 
CHRSC(C 12) 


Bam bt(A+8/C)*«SIN(X)) 


PROGRAMMING NOTE: 
CHRS can be useo to send control characters such as a 
linefeead to the output device. The followina state- 
ment would accomplish this: 


re Vee ech (al 0) 
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ES@OSE 
ELEMENT: 


CLOSE statement 


SYNOPSIS: 


(<line number>] CLOSE <expression> {+ <expression>)} 


DESCRIPTION: 
The CLOSE statement causes the file specified by each 
<expression> to be closed. Before the file may be 
referenced again it must be reopened using a FILE 
Statement. 
An error occurs if the specified file has not previ-= 
ously appeared in a FILE statement. 

EXAMPLES: 

GEOSE 1 


moo CLOSE [, K, L*AM=N 


PROGRAMMING NOTE: 


Un normal completion of a oroaqram all open files are 


closed. [If the program terminates sbnormally it is 
possible that files created by the program will be 
ters t < 
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<constant>> 
ELEMENT: 


<constant> 


SYNOPSIS: 
[<siqn>) <inteqer> . [ <integer> ] [E <siaqn> <exp> J] 


{"} <character string> ("J 


DESCRIPTION: 


A <constant> may be either a numeric constant or a 
String constant. All numeric constants are stored as 
floating point numbers. Strings may contain any ASCII 
character. 

Numeric constants may be either a siqned or unsianed 
integer, decimal number, or expressed in scientific 
notation. Numbers uo to $1 characters in length are 
accepted but the floating point representation of the 
number maintains approximatly seven sianificant digits 
(1 part in 16,000,000). The largest maanitude that 
can be represented is approximately 3.6 times ten to 
the 38th power. The smallest non=zero magnitude that 
can be representea is aprroximately 2./ times ten to 
the minus 39th oower. 

string constants may be up to e55 characters in 
length. Strinas entered from the console, in a data 
Statement, or read from a disk file may bce either 
enclosed in auotation marks or delimited by a Comma. 
Strings used as constants in the program must be 
enclosed 1n quotation marks. 


EXAMPLES: 
10 
-100.75639E=19 


mais IS THE ANSWER" 
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E@S 
ELEMENTS 


COS predefined function 


SYNOPSIS: 


COS ( <expression> ) 


DESCRIPTIONS 
BGS 1S a function which returns the cosine of the 
<expression>. The argument must evaluate to a floating 
op0InNt Number expressed in radians. 
A floating point overflow occurs if the absolute value 
of the <expresSsion> is greater than two raised to the 
C4Uth power times poi radians. 

EXAMPLES: 
COS(B) 


COS(SQR(X-Y)) 
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COSH 
ELEMENT: 


COSH predefined function 


SYNOPSIS: 


CUSH ( <expression> ) 


DESCRIPTION: 
COSH is a function which returns the hyperbolic cosine 
of the <expression>. The argument must evaluate to a 
floating point number. 

EXAMPLES: 
COSH(X) 


COSH(XT2t+YT2) 
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DATA 
ELEMENT: 


DATA statement 


SYNUPSIS: 


[<line number>]) DATA <constant> {, <constant>} 


DESCRIPTION: 


DATA statements define string and floating point con- 
Stants which are assianed to variables using a READ 
Statement. Any number of DATA statements may occur in 
@€@ program. The constants are stored consecutively in 
a data area as they appear in the program and are not 
syntax checked by the compiler. 

Strings may be enclosed in quotation marks or ortion= 
ally delimited by commas. 


EXAMPLES: 
10 DATA 1090.0,11.72,1900 


DATA "XYZ",11.,THIS IS A STRING 
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Dee 
FLEMENT: 


DEF statement 


SYNOPSIS: 


[<line number>] DEF <function name> (<dummy argument 
list>) = <expression> 


DESCRIPTION: 


The DEF statement specifies a user defined function 
which returns a value of the same type as the <funce 
tion name>. One or more <expressicons> are passed to 
the function and used in evaluating the expression. 
The passed values mav be in string or floating point 
form but must match the type of the corresponding 
dummy argument. Recursive calls are not permitted. 
The <expression> in the define statement may reference 
<variables> other than the dummy arguments, in which 
case the current value of the <variadle> is used in 
evaluating the <expresssion>. The type of the funce 
tion must match the tyoe of the <expression>. 


EXAMPLES: 
1Q DEF “FP hNACX. Y)) = xX 4+" ¥ <= JA 
DEF FNBS(AS,BS$) = AS + BS + CF 


CE SE Ne COMPUNE CAG 6) b= ites = FNACA,8B) + D 
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maEEMENT : 


DIM statement 


exUuPSsis: 


[laine number! DIM <identifier> ( <subscript list> 2) 
{,<identifier> ( <subscript list> )} 


DESCRIPTION: 


The dimension statement dynamically allocates space 
forme floating point or string arrays. Sting eanrna, 
elements may be of any length up to 55 bytes and 
change in Jlenath dynamically as they assume different 
values. Initially, all floating point arrays are. set 
to zero and all string arrays are null strings. An 
array must be dimensioned expolicitliys no default 
options are provided. Arrays are stored in row major 
order. 

Exoressions in subscrioct lists are evaluated as floate 
ING point numbers and rounded to the nearest integer 
when determining tne size of the array. Al) sub-= 
scripts have an implied lower bound of VU. 

When array elements are referenced a check 18S made to 
ensure the element resides in the referenced array. 


EXAMPLES: 
DIM A(1i0,20), B(10) 
DIM Bio Ges Seo JG C1 t foot, Cl) 


DIM X(ACI),M,N) 
PROGRAMMING NOTE: 


A <UIM statement> is an executable statements and each 
execution will allocate a new array. 
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END 
ELEMENT: 


END statement 


SYNOPSIS: 


(line number} END 


DESCRIPITION: 
An END statement indicates the end of the source pro- 
Qram.e ee iS optional and, if presents, it terminates 
reading of the source program. If any statments’7 fol- 
low the END statement they are iaqnored. 

EXAMPLES: 
10 END 


END 
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EXP 
ELEMENT: 


EXP ( <expression> ) 


DESCRIPTION: 
The EXP function returns e (2.71828....) raised to the 
power of the <expression>. The argument must evaluate 
to a floating point number. 
If the value of the <expression> exceeds two to the 
le7th power, a floating point overflow occurs. 
EXAMPLES: 
BxIPi(x) 


EXxP(LOG(X)) 
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<expression> 
ELEMENT: 


<expression> 


DESCRIPIION: 


Expressions consist of algebraic combinations of vari= 
ables, constants, and operators. The hierarchy of 
operators 1s: 


1) () 

é) Tt 

Sy) xk, / 

4 ) +, =, Concat (+), unary +, unary - 

ay) relational ops <»s <=, >, >=, =, <> 
ET, Ley Gly GE, Vea, ie 

6) NOT 

7) AND 

8) OR, XOR 


Relational operators result ina 0Oiif false and -1 if 
true. NOT, AND, and OR are performed on 3e bit two's 
complement binary representation of the Integer pore 
tion of the variable. The result 1s then converted to 
a floating point number. String Variables may umee 
operated on by relational operators and concatenation 
only. Mixed string and numeric ooerations are not pere 
mitted. 


EXAMPLES: 
Xx + Y 
AS + BS 


(A <= B) OR (CS > OF) 7 (A = B AND D) 


Be 





Foe: 
ELEMENT: 


FILE statement 


SYNOPSIS: 


[<line number>) FILE <variable> [(<expression>?)] 
{, <variable>{(<expression>)) } 


DESCRIPTION: 


A file statement opens files used by the program. The 
order of the names determines the numbers used to 
reference the files in READ and PRINT statements. The 
value assigned to the first simple variable is filel, 
the second is file e, and so forth. There may be any 
number of FILE statements in a orogram, but there is a 
limit to the number of files which may be opened at 
one time. Currently this limit ts set at 6 files. 

The ootional <exoression> designates the logical 
mecord lenath of the file. If no tength ts specified, 
the file is written as a continuous string of fields 
with carriage return linefeed characters separating 
each record. If the record length 18 present, a cara 
riage return linefeed wil] be aooended to each record. 
The <variable> must not be subscripted and it must be 
of type string. 


Paare LES : 


meet INPUTS, OUTPUTS 


aateee 1ADLE. ENCG, TAX SINCT C160), PAY AMT .DAYS (N* Sag 


PROGRAMMING NOTE: 


The rune=time monitor will always assign the lowest 
available (not previously assigned) number to the file 
being opened. Thus if files are closed and others 
opened it 18 ovossible that number assignment may vary 
with proaram flow. 
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FOR 
ELEMENT: 


FOR statement 


SYNOPSIS: 


{<line number>] FOR <index> = <expression> TO 
<expression> [STEP <expression>] 


DESCRIPTION: 


Execution of all statements between the FOR statement 
and its corresoonding NEXT statement iS repeated until 
the indexing variable, which 1S incremented by the 
STEP <expression> after each iteration, reaches the 
exit criteria. If the step iS positive, the loop exit 
criteria is that the index exceeds the value of the TO 
<expression>. If the step 18 negative, the index must 
be less than the TO <expression> for the exit criteria 
to be met. 

The <index> must be an unsuodscrioted variable and 15 
initially set to the value of the first <expression>. 
Both the [0 ana STEP expressions are evaluated on each 
loops and all variables associated with the FOR state- 
ment may change within the loop. If the STEP clause 
iS omitted, a default vaiue of 1 18 assumed. A FOR 
loop is always executed at least once. A step of 0 
may be used to looo indefinitely. 


EXAMPLES: 
POR | = 1 $0 10 STEP 5&5 
FOR INDEX = J*Kel TO 10*«SIN(X) 


FOR I = 1 TO 2 STEP 0O . 


PROGRAMMING NOTE: 


If a step of 1 is desired the step clause shoula be 
omitted. The execution will] be substantially faster 
Since less runtime checks must be made. 
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FRE 
ELEMENT: 


FRE predefined function 


SYNOPSIS: 
FRE 
DESCRIPTION: 
The FRE function returns the number of bytes of unused 


space in the free Storage area. 


EXAMPLE: 


FRE 
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<function name> 


FUNCTIONS: 


<function name> 


SYNOPSIS: 


FN<identifier> 


DESCRIPTION: 


Any <identifier> starting with FN refers to a user= 
defined function. The <function name> must appear in a 
DEF statement prior to being used in an <expression>. 
There may not be any spaces between the FN and the 
<jdentifier>. 


EeerMiP LES: 


FNA 


piv. DLGGER : 5 
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GOSUB 
BLEMENT: 


GOSUB statement 


SYNOPSIS: 
(<line number>) GOSUB <line number> 
[<}ine number>] GO SUsb <line number> 

DESCRIPTION: 
The address of the next sequential inst FucCT ICH 1c 
saved on the runtime Stack, anGd -comtro) is 
transferred to the Subroutine labeled with the <line 
numoer> following the GOSUB or GO SUB. 

EXAMPLES: 
10 GOSUB 300 


GO SUB 100 


PROGRAMMING NOTE: 


The max depth of GOSUB calls allowed is controllea by 
the size of the run-time stack which is currently set 
at le. 
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GUTre. 
ELEMENT: 


GOTO statement 


SYNOPSIS: 
(<line number>]) GOTO <line number> 


(<line number>] GO TO <line number> 


DESCRIPTION: 
Execution continues at the statement labeled with the 
<line number> following the GOTO or GO JO. 

EXAMPLESS? 
mo GOTO 50 


GO TO 16 
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<jdent 1 {128e 
ELEMENTS 


<identifier> 


SYNOPSIS: 


<letter> { <letter> or <number> or .} ( $ } 


PEoCRIPTIONs: 
An identifier begins with an alphabetic character fol- 
lowed by any number of alphanumeric characters, or 
periods. Only the first 31 characters are considered 
unique. If the last character is a dollar sign the 
associated variable is of type Strings, otherwise it 15 
of type floating point. 

EXAMPLES: 
A 
BS 
mye. ABC 


PAY.RECORD.FILE.NUMBER.76 


PROGRAMMING NOTE: 
All lowercase letters appearing in an <identifier> are 


converted to uprercase unless compiler toggle D is set 
mo Off. 
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IF 
ELEMENTS 


IF statement 


SYNOPSIS: 
([<line number>]) IF <expression> THEN <line number> 
[<line number>] IF <expression> THEN <statement list> 
{<line number>] IF <expression> THEN <statement list> 
ELSE <statement Jist> 
PeoCRIPTIONs 
If the value of the <expression> is not 0 the state= 
ments which make up the <statement Jlist> are executed. 
Otherwise the <statement list> following the ELSE is 
executed, if present, or the next sequential statement 
1S executed. 
In the first form of the statement if the <expression> 
ise not eaual to 0, an unconditional oranch to the 
label occurs. 
EXAMPLES: 
LF AS < BS THEN X= YrZ 
ioe (A$<BH) AND (C OR D) THEN 300 
TF B THEN X = $.0 : GOTO 200 


Heed AND K THEN GOTO 11 ELSE GOTO lie 
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IF END 
BmeMENT $ 


IF END statement 


SYNOPSIS: 
{<line number?) IF END #<expression> THEN <line 
number> 

DESCRIPTION: 
If during a read to the file specified by the <exprese 
SI1ON>, an end of file 1S detected control is 
transferred to the statement labeled with the line 
number following the THEN. 

EXAMPLES: 

Le VENOM wes 160 


10 IF END # FILE.NUMBER = INDEX THEN 700 


PROGRAMMING NOTE: 


On transfer to the line number following the THEN the 
Stack 1S restored to the state prior to the execution 
of the READ statement which caused the end of file 
Geondition. 
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INP 
ELEMENT: 


INP predefined function 


SYNOPSIS: 


INP ( <expression> ) 


DESCRIPTIUN: 
The INP function performs an input operation on the 
8080 machine port represented by the value of the 


<expression> modulo ¢e56 returning the resulting value. 
The argument must evaluate to a floating point number. 


EXAMPLES: 
INP (2) 


INP (CURRENT. INPUT .PORT ) 
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INPUT 
FLEMENTS 


INPUT statement 


SYNOPSIS: 


[sline numbers lst NeEUT ([<promot string> 7) 
<variable> {, <variable> } 


DESCRIPTION: 


The <prompt string>, if present, is printed on the 
console. A line of inout data 1S read from the con-= 
sole and assigned to the variables as they appear in 
the variable list. The data items are separated by 
commas and/or blanks and terminated by a Carriage 
return. Strings may be enclosed in quotation marks. 
If a strina is not enclosed by quotes, the first comma 
terminates the string. If more data is reauested than 
wes entered, or if insufficient data items 1S entered, 
@ warning iS printed on the console ano the entire 
line must de reentered. 


EXAMPLES: 
10 INPUT A,B 
TCU oie OF mo Ra 


PePUT RO NABUE Ss “s SAG ree CAT) ) 
PROGRAMMING WiGh ee 


Trailing blanks in the <prompt strina> are ignored. 
One blank 1S always supplied by the system. 


a5 





INT 
ELEMENTS 


INT predefined function 


SYNOPSIS: 


INT € <expression> ) 


DESCRIPTION: 
The INT function returns the laraest integer less than 
or equal to the value of the <expression>. The argu=- 
ment must evaluate to a floating point number. 
EXAMPLES: 
INT (AMOUNT / 100) 


INT(3 * X * SIN(Y)) 
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aaah 


ELEMENTS 


LEFIS oredefineo function 


SYNOPSIS: 


LEFTS (€ <expression> », <expression> ) 


DESCRIPTION: 


The LEFITS function returns the n leftmost characters 
of the first <expression>,s where n is equal to the 
integer portion of the second <expression>. An error 
occurs if on is negative. If n iS Greater than the 
length of the first <expression> then the entire 
exoression 1S freturned. The first argument must 
evaluate to a string and the second to ae floating 
point mumber. 


EXAMPLES: 


LEFTS (AS$,3) 


LEFIS(CS+D5,1-J) 
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LEN 
ELEMENT: 


‘LEN oredefined function 


SYNOPSIS: 


LEN ( <expression> ) 


DESCRIPIION: 
The LEN function returns the length of the string 
<expression> passed as an argument. Zero is returned 
if the argument is the nul] string. 

EXAMPLES: 
LEN(AS) 
LEN(CS + BS) 


LEN(LASTNAME $ 1” +t SLRS UNAME $ ) 
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Bei 


ELEMENT: 


LET statement 


SYNOPSIS: 


[<line number>] [LET] <variable> = <exoression> 


DESCRIPTION: 


The <expression> is evaluated and assigned to the 
<variable> appearing on the left side of the equal 
sign. The type of the <expression>, either flaating 
point or stringer must match the type of the <vari- 
able>. 


EXAMPLES: 


moo LET A = 6B + C€ 
ROC Sa) sense oh YX (2715) 
75 W = (A<B) OR (CS5>D$) 


AMOUNTS = DOLLARSS + "." + CENTSS 
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<line number> 


ELEMENT: 


<Jine numoer> 


SYNOPSIS: 


<digit> { <digit> } 


DESCRIPTION: 


<line numbers> are optional on all statements and 
ignored by the compiler except when they appear 
GOTO, GOSUB, or ON statement. In these cases, 
<line number> must appear as the label of one and 
one <statement> in the program. 

<line numbers> may contain any number of digits 


are 
in a 
the 
only 


but 


only the first 31 are considered sianificant by the 


compiler. 


EeemMPLeES : 


100 


4635276353 
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OG 
ELEMENTS: 


LUG predefined function 


SYNUPSIS: 


LOG ( <expression> ) 


DESCRIPTION: 
The LOG function returns the natural logarithm of the 
absolute value of the <expression?>. The argument must 
evaluate to a non-zero floating point number. 
EXAMPLES: 
LOG (Xx) 
LOG(CA + B)/D) 


LOGiIO = LOG(X)/LOG(10) 





MID$ 
ELEMENT: 


MIDS predefined function 


SeoNOPSIS: 


MIDS (€ <expression> », <expression> , <expression> ) 


DESCRIPTION: 


The MIDS function returns a string consisting of the n 
characters of the first <expression> starting at the 
mth character. The value of m is equal to the integer 
portion of the second <expression> while n is the 
integer portion of the third <expressi1on>. 

The first argument must evaluate to a string, and the 
second and third arguments must be floating point 
numbers. If m is greater than the length of the first 
<expression> anull string is returned. If nis 
Qreater than the number of characters left in the 
string all the characters from the mth character are 
returned. An error occurs if m or mn is negative. 


EXAMPLES: 
PeuDS CAS, 1, J) 


MiID$(€BS+CS,START,LENGTH) 
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NEXT 
ELEMENT: 


NEXT Statement 


SYNUPSIS: 


[<line number>] NEXT [(<identifier> {,<identifier>}] 


DESCRIPTION: 


A NEXT statement denotes the end of the closest 
unmatched FOR statement. If the optional <identifier> 
is present it must match the index variable of the FOR 
statement being terminated. The list of <identifiers> 
allows matching multiple FOR statements. The <line 
number> of a NEXT statement may aprear in an ON or 
GOTO statement, in which case execution of the FOR 
loop continues with the loop variables assuming their 
current values. 


EXAMPLES: 
10 NEXT 
NEXT I 


NEXT I, Jp K 
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ON 
ELEMENT: 


ON statement 


SYNOPSIS: 


(1) {<line number>] ON <expression> GOTO 
; <line number> {, <line number>} 


(2) (<line number>] ON <exoression> GO TO 
<line number> {, <line number>} 


(3) (<line number>) ON <expression> GOSUB 
<line number> {, <line number>} 


(4) {<line number>) ON <expresston> GO SUb 
<line number> {, <line number>} 


DESCRIPTION: 


Tne <expression>, rounded to the nearest integer 
value, is used to select the <line number> at which 
execution will continue. If the <expression> evalu- 
ates to 1 the first <line number> is selected and So 
Forth. In the case of an ON ... GOSUB statement the 
address of the next instruction becomes the return 
acdress. 

An error occurs if the <exoression> after rounding 15 
less than one or greater than the number of <line 
Numbers> in the jist. 


EXAMPLES: 
10 ON I GOTO 10, 20, 30, 490 


ON J*KoM GO SUB 10, 1, 1, 190 
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OUT 
ELEMENTS 


OUT statement 


SYNOPSIS: 


[<line number>] OUT <expression> , <expression> 


DESCRIPTIONS: 
The loweorder eight bits of the integer portion of the 
second <expression> is sent to the 8080 machine output 


port selected by the integer portion of the first 
expression modulo 256. Both arguments must evaluate 


to floating point numbers. 


EXAMPLES: 
moO OUT 3,10 


OUT PORT.NUM, NEXT.CHAR 
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POS 
ELEMENT: 


POS oredefined function 


SYNOPSIS: 


POS 


DESCRIPTION: 
tne POS tunction Returns the current posit iconemo unc 
Out oUt line buffer pointer, This value will range 
from i to the pramt oOCuffer size. 


EXAMPLES: 


PRINT TABCPOS at 3)7xX 
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PRINT 
FLEMENTs: 


PRINT statement 


SYNOPSIS: 


(1) (<line number>} PRINT &<exoression>,<expression>s 
<expression> {, <exoression> } 


(2) (<line number>] PRINT #4 <expression> ; 
<expression> {r <exoression> } 


(5) {<line number>] PRINT <expression> <delim> 
{ <expression> <delim> } 


DESCRIPTION: 


A PRINT statement sends the value of the expressions 
in the expression Jist to either a disk file (type(l) 
and (2)) or the console (type (3)). A type (1) PRINT 
Statement sends a random record specified by the 
second <expression> to the disk file specified by the 
first <exopression>. An error occurs if there is 
insufficient space in the record for all values. 

A type (2) PRINT statement outouts the next sequential 
record to the file specified by the <expression> fol- 
lowing the 4, 

A type (3) PRINT statement outouts the value of each 
<expression> to the console. A space is anopended to 
all numeric values and if the numeric item exceeds the 
right margin then the print douffer 1s dumped before 
the item 1S printed, The <delim> between the <exores-= 
SIONS> may be either @ comma or a semicolon. The 
comma causes automatic soacing to the next tab posi- 
tion (14,28,42e,56). If the current print position is 
Qreater than 56 then the porint buffer is printed and 
the print position is set to zero. A semicolon indgi- 
cates no spacing between the printed values. If the 
last <expression> is not followed by a <delim> the 
print buffer is dumpeaq and the oprint position set 
equal to zero. The buffer is automatically printed 
anytime the print oosition exceeds 71. 


EXAMPLES: 
POO PRINT #174,6;,A3% "*%" 
Sr | ee ie inte sea, oO, Oy etl” 


PR Nieeye oy THE ANSWER IS" 7 
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RANDOMIZE 
ELEMENTS 


RANDOMIZE statement 


SYNOPSIS: 


[<line number>) RANDOMIZE 


DESCRIPTION: 
A RANDOMIZE statement initializes the random number 
generator. 

EXAMPLES: 
10 RANCOMIZE 


RANDOMIZE 





READ 
Bee MENT : 


READ statement 


SYNUPSIS: 


(1) (<line number>] READ <expression>,s <expression?; 
<varjiadle> {, <variabdle> } 


(2) {<line number>}] READ # <expression>; 
<variable> {, <variable> } 


(3) [<line number>) READ # <variable> {, <variable> } 


DESCRIPTION: 


A READ statement assigns values to variables in the 
variable list from either a file (type (2) and (3)) or 
from a DATA statement (type (1)). Type (2) reads a 
random record specified by the second expression from 
the disk file scecified by the first expression and 
assigns the fields in the record to the variables in 
the variadole list. Fields may be floating ooint or 
String constants and are delimited by a blank or 
comma. Strings may optionally be enclosed 1n quotes. 
An error occurs if there are more variables than 
fields tin the record. 


The tyoe (3) READ statement reaas the next sequential 

record from the file snecified by the expression and 

assiqns the fields to variables as described above. 

A type (2) READ statement assigns values from DATA 

statements to the variables tn the list. DATA state- 

ments are processed sequentially as they appear in the 

program. An attemot to read past the ena of the last 

data statement produces an error. 
EXAMPLES: 

L0G READ A,8,65% 

C00 READ #& 1,1; PAY.REG,PAY.OT,HOURS.REG,HOURS.OT 


READ # FILE.NO; NAMES,ADDRESSS,PHONES, ZIP 
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REM 
ELEMENT: 


REM statement 


SYNOPSIS: 
{<line number>] REM [<remarx>} 


{<line number>] REMARK [<remark>] 


DESCRIPTION: 


A REM statement iS 1aqQnored by the compiler and compi- 
lation continues with the statement following the next 
Carriage return. The REM statement may be used to 
document a orogram. REM statements do not affect the 
size of program that may oe compiled or executed. An 
unlabeled REM statement may follow any statement on 
the same line. And the <line numoer> may occur in a 
GOTU, GOSUB or ON statement. 


EXAMPLES: 
10 REM THIS 15 A REMARK 


REMARK THIS IS ALSO A REMARK 


LeT X = YU REM INITIAL VALUE OF X 





reserved wora 


ELEMENTS 


reserved word list 


SYNUPSIS: 


<jetter> { <letter> } { 4 } 


DESCRIPVION: 


The following words are reserved by BASIC#E 
not be used as <identifiers>?: 

ABS AND ASC ATN 
GEOSE Cos COSH DATA 
DIM ELSE END EQ 

mel ie FOR FRE GE 
GOSUB GOTO GT Te 
TNPUT INT BE ats ele 
Bet LOG LI MIDS 
NEXT NOT ON OR 
POS PRINT RANDOMIZE READ 
me SORE RETURN RIGHTS RND 
SIN SINH SQR She le 
STRS SUB TAB TAN 
TO VAL 

Reserved words must be oreceeded- and 


either a special character or a Space. 
be embedded within reserved words. 
toaqgle D is set, lowercase 
uopercase porior to checking to see 
1S a reserved word. 


Unless 


If an 


| OMe 


roe 


and may 


CHRS 
Rep 
EAP 
GO 
INP 
Be) 
NE 
OUT 
KEM 
SGN 
SPE 


Cie 


followed by 
Spaces may not 
compiler 
letters are converted to 
<identifier> 





RESMORG 


ELEMENT: 


RESTORE Statement 


SYNOPSIS: 


{<line number>] RESTORE 


DESCRIPTION: 


A RESTORE statement repositions the pointer into the 
data area so that the next value read with a READ 
Statement will be the first item in the first DATA 
Statement. The effect of a RESTORE statement jis to 
allow rereading the DATA statenents. 


EXAMPLES: 


RESTORE 


nO RESTORE 





Re TURN 


ELEMENT: 


RETURN statement 


SrNnoPSIS: 


[<line number>] RETURN 


DESCRIPTION: 


Gontrol is returned from a subroutine tothe Sealing 
routine. The return address 1S maintained on the top 
of the run=time monitor stack. No check 1S made to 
insure that the RETURN follows a GOSUB statement.: 


EXAMPLES: 


130 RETURN 


RETURN 





RIGHTS 
EeEMENT: 


RIGHTS predefined function 


SYNUPSIS: 


RIGHTS ( <expression> », <expression?> ) 


DESCRIPTION: 


The RIGHTS function returns the n rightmost characters 
of the first <exprssion>. The value of nis equal to 
the integer portion of the second <expression>. If on 
is negative an error occurss if n iS Greater than the 
Jengqth of the first <expression> then the entire 
<expression> 1s returned. The first argument must 
produce a string and the second must produce a float= 
ing point numoer. 


PreaMPLess: 
RIGHTS(X$,1) 


RIGHTS CNAMES,LNG.LAST) 


ec 





RND 
EASEMENT : 


RND oredefined function 


SYNOPSIS: 


RND 


DESCRIPTION: 


The RND function generates a uniformly distributed 
random number between 0 and 1. 


EXAMPLE: 


RND 





SGN 
ELEMENT: 


SGN predefined function 


SYNOPSIS: 


SGN (€ <expression> ) 


DeSoCRIPTION: 
The SGN function returns 1 if the value of the 
<expression> is aqreater than QO, 1 if the value is 
less than 0 and 0O if the value of the <expression> is 
OF The argument must evaluate to a floating point 
numper. | 


EXAMPLES: 
SGN (X) 


SGNCA - B + C€) 





See MENT : 


SIN predefined function 


SYNOPSIS: 


SIN (€( <expression> ) 


DESCRIPTION: 
SIN is a predefined function which returns the sine of 
the <expression>. The argument must evaluate to a 
floating point number In radians. 
A floating point overflow occurs if the absolute value 
of the <expression> is greater than two raised to the 
C4th power times pl. 

meeMrles: 

X = SINCY) 


SINCA = B/C) 
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SINH 
ELEMENT: 


SINH predefined function 


SrNurols: 


SINH (€ <expression> ) 


DESCRIPTION: 
SINH is a function which returns the hyperbolic sine 
o f the <expression>. The argument must evaluate to a 
floating point number. 

EXAMPLES: 
SINHCY) 


SINH(B<C) 





BeEMENT : 


special 


DESCRIPTION: 


characters 


special characters 


The following special characters are used by BASIC-E: 


Any spec 
appear 


those listed above, 


+ 


™~é 


Cr 


aS 


1a] 


wn 


circumflex 

open parenthesis 
closed parenthesis 
asterisk 

pews 

minus 

Slant 

(6) || fea 

semicolon 
lessethan 
Qreater=than 
equal 
number=sign 
comma 

Carriage return 


backslant 


character in the ASCII] character set may 
Strina. Special characters other than 


if they apoear outside 3 string, 


will generate an IC error. 





ELEMENTS? 


<statment> 


SeUPSIS: 
{ <line 
{ <line 
{ <line 
{ <line 


{ <line 


DESCRIPTION: 


Nnumoer> 


number> 


number> 


Nnumber> 


number> 


<statement>o 


<statement Jlist> <cr> 
IF statement <cr> 

DIM statement <cr> 
DEF statement <cr> 


ctND statement <cr> 


All BASIC\"E statments are terminated by a Carriage 


return ( <cr> 


). 





<statement list> 
SEEMENT: 


<statment Jlist> 


SYNOPSIS: 
<simple statement> {: <simole statement> } 
where a <simple statement> 1S one of the following: 


FOR statement 
NEXT statement 
FILE statement 
CLOSE statement 
GOSUB statement 
GOTO statment 
INPUT statement 
LET statement 

ON statement 
PRINT statement 
READ statement 
RESTORE statement 
RETURN statement 
RANDOMIZE statement 
OUT statement 
STOP statement 
<empty> statement 


DESCRIPTION: 


A <statement list> allows more than one <statement> to 
occur ona single line. 


EXAMPLES: 


mero les 0 2 LET J = 0 ¢ LET K = 0 


it 


x Y¥+Z/"W : RETURN 


eee ce ’ PRINTS ’THIS 1S «OK. foo” 





STR$ 
ELEMENT: 


SIRS predefined function 


SYNOPSIS: 


STR$ ( <expression> ) 


DESCRIPTION: 
The STRS function returns the  A561a String Swhaes 
represents the value of the <expression>. The argument 
must evaluate to a floating point number. 

EXAMPLES: 
STRS(xX) 


Sik de 5.141617) 
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<subseript dist> 
FLEMENTs: 


<subscript list> 


SYNOPSIS: 


<expression> {, <expression> } 


DESCRIPTION: 
A <subscriopt list> may be used as part of a <DIM 
Statement> to specify the number of dimensions and 
extent of each dimension of the array being declared 
or aS part of a <subscripted variable> to indicate 
which element of an array 18 being referenced. 
There may be any number of expressions but each must 
evaluate to a floating point number. A <subdScript 
list> as part of a DIM statement may not contain a 
reference to the array being dimensioned. 
EXAMPLES: 
X(10,c0,c0) 
YeCi,J) 


SOOM AMT (1), PRICECL)) 


ee 





SQR 
See MENT 3: 


SQR (€ <expression> ) 


DESCRIPTION: 
SQR returns the square root of the absolute value of 
the <expression?. The argument must evaluate to a 
floating point number. 

EXAMPLES: 
SQR CY) 


SGR(xte oy te) 


ec 





TAB 
ELEMENT: 


TAB predefined function 


SeNOPSIS: 


TAB (€ <expression> ) 


DESCRIPTION: 


The TAB function positions the output ouffer pointer 
to the position specified by the integer value of the 
<expression> rounded to the nearest integer modulo 73. 
If the value of the rounded exoression is less than or 
equal to the current print position, the print buffer 
is dumped and the buffer pointer is set as described 
above. 


The TAB function may occur only in PRINT statements. 


EXAMPLES: 
TABC(10) 
TABCT + 1) 


Fes 





3 TOP 


ELEMENT: 


STOP statement 


SYNOPSIS: 


{<line number>) STOP 


DESCRIPIION: 


Upon encountering a <STOP statement> program execution 
terminates and all open files are closed. The print 
buffer is emptied and control returns to the host sys-= 
tem. Any number of STOP statements may appear in a 
program. 


A SIiOP statement 18 aopnmended to al] oproarams oy the 
compiler. 


EXAMPLES: 


PO 6 [CO TOP 


Sif Ole 
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TAN 
SmEMENT: 


TAN predefined function 


SYNOPSIS: 


TAN ( <expression> ) 


DESCRIPTION: 


TAN is a function which returns the tangent Gr sthe 
expression. The argument must ove in radians. 


An error occurs if the <expression> is a multiple of 
pi/e radians. 

EXAMPLES? 
Oe TAN CA) 


TAN(X = 3*COSCY)) 


ie 





VAL 


ELEMENT: 


VAL predefined function 


SYNUPSIS: 


VAL ( <expression> ) 


DESCRIPTION: 


The VAL function converts the number jin ASCII passed 
as a2 parameter into a floating point number. The 
<expression> must evaluate to a string. 


Conversion continues until a character 18S encountered 
that iS not part of a valid number or until the end of 
the string 18 encountered. 


EXAMPLES: 


VAL (AS) 


foe Se Oh9 + SE WO te This is IGNORED") 


leo 





AC 
Nd 


DR 


DW 
DZ 
EF 
ER 
Yl 
IR 
FU 
ME 
NE 
NI 
OD 
OE 
Ol 
RE 
RU 
96 
OL 
SS 


|) 24 


APPENDIX TIE = RUN-TIME MONITOR ERROR MESSAGES 


Null string passed as parameter to ASC function. 
Error closing a file. 


Disk read error (reading unwritten data in 
random access). 


Error writing to a file. 

Division by zero. 

Eof on disk file.*? no action specified. 
Exceeded record size on block file. 

Invaliag input from the console. 

Invalid record number in random access. 
Accessing an unooened file. 

Error attempting to create a file. 

Attempt to raise a number to a negative fower. 
No INT file found in directory. 

Attempt to reag past end of data area. 

Error attempting to open a file. 

Index in ON statement out of bounds. 

Attempt to read past end of record on blocked file. 
Undlocked file used with random access. 

Array subscript out of bounds. 

String lenath exceeds 255. 

Second oarameter of MID$ 1S negative. 


Attempt to evaluate tangent of pi over two. 


0 





APPENDIX IV = OPERATING INSTRUCTIONS FOR BASICE 


The BASIC@-E programs are written to operate with the 
CP/M Flooovy Disk Operating System. Operation with a dif- 
ferent system will require modification to the input/output 
routines in the compiler and runetime monitor. Execution of 
a program using SBASIC=E consists of three steps. First “the 
Source program must be created on disk. Next the program 1s 
compiled by executing the BASIC#E compiler with the name. of 
the source program provided as 32 parameter. Finally the 
Gmeermediate (INT) file created by the compiler may be 
interpreted by executing the runestime monitor, again using 


the the source proaram name as a parameter. 


Creation of the source program will normally be accome- 
plished using CP/M's text editor, S06) HOES have a file type 
BAS. The BASIC-E statements are free form with the restrice 
tion that when a statement is not completed on a single 
line, a continuation character (\) must be the last charac- 
ter on the line. Spaces may precede statements and any 
number of spaces may appear wherever one snvace is permitted. 
Line numbers need only be used on statements to which cone 
Mroi 1s passed. Jhe line numbers do not have to be in 
ascending order. Using identifiers longer than two charace 


maes and indenting statements to enhance readability Goes 


or 





not affect the size of the object file created by the come 


piler. 


The first Statement of a source program may be used to 
specify certain compiler options. If present, this state- 
ment must begin with a dollar siqn ($3) in column one ana be 
followed by the letter or letters indicating the options 
which are desired. The letters may be separated by any 
numoer of blanks. Invalid letters or characters are 
ignored. Apoendix OD lists valid compiler optionss and their 
may tia) settings. Toqgle A is used for compiler debugging. 
Toggle 6 suoresses Jisting of the source program except {Or 
statements with errors. Toggle C compiles the program but 
Goes not create a INT file. Normally the BASIC*E compiler 
converts) ajl letters apoearing in identifiers or reserved 
woras to uepercase. If toagle D0 is set this conversion 15 
not performed. Letters appearing in strings are never cone 
verted to uprmercasee. JToaqle E causes code to be generated 
Dy the compiler so that, upon detection of a runestime error, 
the source statement line which was being executed at the 
time the error occured is listed along with the error meso 
sage. 


The BASIC#E compiler is invoked as follows: 
BASIC <program name> 
The compiler begins execution by oeening the source file 
specified as a parameter and comoiles each BASIC-E statement 
Producing an object file in the BASIC#E machine language 


with the same name as the source orogram but of type "INT", 


baa 





The source crogram may be listed on the output device with 
any error messages following each line of the proaqram. We oe 
no errors occur during compilation, the object file may be 
executed oy the run time monitor by typing the commana: 


RUN <program name> 
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fT bie ARW a 4 REAA ou we ok ado ee en Se 
x * 
2 EXECUT IGN OE =SV NING omGECING HERG aac * 
WE Me ae ee Mee whe he He he he whe ee ee Re ade ate ae oe he ee ade he he ee ete ate he ate ote i ays oe ode oie ke he he ae ee ee de ok oe OK 
x / : . 
IF LISTPROD AND PASS2 THEN 
DO; /* IF LISTPROD SET PRINT QUT PRODUCTIONS */ 
CALL PRINT(.'PROOD $°)3 
CALL PRINTOEC (PRODUCTION); 
ae CALL CRLE3 
CALL COPY; /* SETUP FOR ACCESSING PARSE TABLES */ 
OC CASE FRODUCTION3 /* CALL TO SYNTHESIS HANDLES ONE PROD */ 
7* CASE O NCT USED ¥/ 3 
i <PROGRAM> ::= <LINE NUMBER> <STATEMENT> 
2 <LINE NUMSER> ::= <NUMBERD 
"TF LOOKUPSONLY (SP) THEN 
"4G GETRES THEN 
7 te CODESI ZEN UCce IA ODS 
CALL ERROR('DL'); 
END; 
EILGe 
00; 
CALL SETADDR(CODESIZE); 
CALL SETYPE(LABLED; 
END; 
END; 
= 
SEPARATGR = ASTRICK; 
CALL LINESNUMBER; 
END § 
CALL LINESNUMBER; 
4 €STATEMENT> 22= <STATEMENT LIST> 
CALL CKECK$ULSERROR; 
5 <IF STATEMENT> 
6 <END STATEMENT> 
ee <DIMENSION STATEMENT> 
a <DEFINE STATEMENT> 
9° STATEMENT LIST> ::= <SIMPLE STATEMENT> 
10 2STATEMENT (UESTD ¢ 
10 <SIMPLE STATEMENT> 
ll ° <SIMPLE STATEMENT> 2:2 <LET STATEMENTD> 
12 ; <ASSIGNMENT> 
is © <FOR STATEMENT> 
14 7 <NEXT STATEMENT> 
15 j <FILE STATEMENT> 
16 CGUOSE SATEEN T> 
Cy <PRINT STATEMENT> 
a <READ STATEMENT> 
19’ <GOTO STATEMENT> 
POF | <GOSUB STATEMENT> 
2. <INPUT STATEMENT> 
220 | <STOP STATEMENT> 
23 ; <RETURN STATEMENT> 
24 <ON STATEMENT> 
25 <RESTORE STATEMENT> 
26 <RANOOMIZE STATEMENT? 
27 <OUT STATEMENT> 
28 
29. “<LET STATEMENT> 22= LET <ASSIGNMENT> 
30  <ASSIGNMENT> ::= <ASSIGN HEAD> <SXPRESSLON> 
TE CHR UVED THEN 
CALL GENSSTORE; 
31 <ASSIGN HEAD> ::= <VARIABLED = 
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